Delphi Enter实现与Tab一样的功能

 

Procedure TMainForm.DoEnterAsTab(var Msg:Tmsg;var Handle:boolean);  // Windows, Messages;
begin
  if  Msg.message = WM_KEYDOWN then
  begin
    if Msg.wParam = VK_RETURN then
      Keybd_event(VK_TAB,0,0,0);
  end;
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  application.OnMessage := DoEnterAsTab;

end;

 

 

ESC按钮退出的写法：
procedure TForm1.FormCreate(Sender: TObject);
begin
keypreview:=true; //可以接收键盘操作
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
    application.terminate;   //关闭程序
end;

#13 回车
＃10换行
#20为空格