OnKeyDown

ret

кто подскажет, как обработать событие -нажатие клавиши например F3
если писать код как в дельфи
case key of
vk_f3:
begin
end;
end;
или
if key=vk_F3 FS ругается, что он н езнает что такое "key"... Как с этим бороться?

AlexTZ

Вот модифицированный скрипт forms.pas из демки:

{**************************}
{ FastScript v1.0          }
{ Forms demo               }
{**************************}

var
  f: TForm;
  b: TButton;


procedure ButtonKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = vk_F3 then
    ShowMessage('F3');
end;

begin
  f := TForm.Create(nil);
  f.Caption := 'Test it!';
  f.BorderStyle := bsDialog;
  f.Position := poScreenCenter;

  b := TButton.Create(f);
  b.Name := 'Button1';
  b.Parent := f;
  b.SetBounds(10, 10, 75, 25);
  b.Caption := 'Test';

  b.OnKeyDown := @ButtonKeyDown;

  f.ShowModal;
  f.Free;
end.