enter作为tab.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 31 行

在整个程序中，实现‘Enter作为Tab ’变换 


CoDelphi.com 

　摘　要：Enter键使用作Tab键(例如: 跳到下一个输入区) 
　关键字：enter tab 键 WM_KEYDOWN VK_RETURN VK_TAB 
　类　别：API 
--------------------------------------------------------------------------------
首先，在主窗体中声明以下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;
{------}

程序运行期间不断接收 WM_KEYDOWN信息, 若按下的键是VK_RETURN (#13),我们模拟一个键盘事件, 把VK_TAB作为参数传送。在整个程序中都起作用。