我尝试以下操作,捕获“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指向调试点,并且从不调用方法
我感谢任何帮助。
答案 0 :(得分:-1)
尝试使用UTFKeyPress事件:
procedure TForm1.FormUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
begin
if UTF8Key = #27 then
btnCloseClick(Sender);
end;