[代码] 回车移动焦点 2016-09-122016-09-12 • Delphi • 暂无评论 • Aar0n •2,277 次查阅 在当前焦点按下回车自动移动到下移控件。 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;
0 条评论
沙发空缺中,还不快抢~