[代码] 回车移动焦点

在当前焦点按下回车自动移动到下移控件

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 13 then
  begin
    keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下
    keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); //弹起
  end;
end; 
分享到: