捕捉按下自由帕斯卡的按键?

时间:2016-02-26 20:30:46

标签: lazarus freepascal

我尝试以下操作,捕获“Esc”键:

procedure Tform1.FormCreate(Sender: TObject);
begin
    KeyPreview := True;
end;      

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if Key = #27 then
    begin
      btnCloseClick(Sender);
    end;
end; 

但Interrupted指向调试点,并且从不调用方法

我感谢任何帮助。

1 个答案:

答案 0 :(得分:-1)

尝试使用UTFKeyPress事件:

procedure TForm1.FormUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
begin
  if UTF8Key = #27 then
    btnCloseClick(Sender);
end;