Enter键使用作Tab键

首先,在主窗体中声明以下private过程:
procedure TMainForm.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_RETURN then
Keybd_event(VK_TAB, 0, 0, 0);
end; //if
end;

在主窗体的OnCreate事件中加入:
Application.OnMessage := DoEnterAsTab;

好的代码像粥一样,都是用时间熬出来的

posted on 2021-06-23 16:38  癫狂编程  阅读(25)  评论(0编辑  收藏  举报

导航

好的代码像粥一样,都是用时间熬出来的