[kentavr16]

день добрый. не могу понять причину ошибок, которые выдает компилятор в данном исходнике

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Panel1: TPanel;     Button1: TButton;     Label1: TLabel;     function AltKeyDown : Boolean;     function ShiftKeyDown : boolean;     procedure Button1Click(Sender: TObject);     private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   function AltKeyDown : boolean; begin Result:=(Word(GetKeyState(VK_MENU)) and $8000)<>0; end;   function ShiftKeyDown : boolean; begin Result:=(Word(GetKeyState(VK_SHIFT)) and $8000)<>0; end;   procedure TForm1.Button1Click(Sender: TObject); begin if AltKeyDown and ShiftKeyDown then begin   Label1.Caption:='gogogo'; end; end;   end.

Админ: Пользуемся тагами для оформления кода!

как видите, программа должна при нажатии определенных клавиш просто вывести сообщение на лейбл. но имею ошибку "unsatisfied forward or external declaration 'TForm1.AltKeyDown'
тот же трабл с TForm1.ShiftKeyDown . насколько понял, я неверно объявил функции?
извините за пустяковую тему, но ответ реально ускорит процесс обучения делфи. заранее спс.

[YVitaliy]

Если обьявил метод в классе, то и реализация должна быть там же:

Код:

1 2 3 4 5

function <b>TForm1.</b>AltKeyDown : boolean;  begin  Result:=(Word(GetKeyState(VK_MENU)) and $8000)<>0;  end; и тд.

[kentavr16]

большое спасибо. все стало ясно.)) и все же... компилятор создает проект,но при нажатии на кнопку - никакого результата.

[kentavr16]

сорри. все нормально работает. спасибо!

[YVitaliy]

Потому что должна быть реакция на событие, недостаточно просто написать "авось я нажму на такую-то клавишу" Самое простое - посмотри на событие TForm1.FormKeyDown (OnKeyDown).