procedure TForm1.FormCreate(Sender: TObject);
begin
keypreview:=true; //可以接收键盘操作
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
application.terminate; //关闭程序
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 71 then //按键G
tab.Click()
end;