Цитата:
Сообщение от Yurk@
Код:
procedure TaForm.edPfKodKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_F9 : Button3Click(nil);
end;
end;
|
[Error] Unit1.pas(25): ';' expected but '.' found
[Error] Unit1.pas(26): ';' expected but ')' found
[Error] Unit1.pas(29): Undeclared identifier: 'Button3Click'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'