请问在Delphi中如何模拟按下TAB键？？在线等...

如题

解决方案 »

  1.   

    什麽意思？給個回車代替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;
    {------}程序运行期间不断接收 WM_KEYDOWN信息, 若按下的键是VK_RETURN (#13),我们模拟一个键盘事件, 把VK_TAB作为参数传送。在整个程序中都起作用。
      

  2.   

    如果你是想實現tab的向下移動焦點的功能SelectNext(ActiveControl,True,True);
      

  3.   

    对不起我想我没有把问题说清楚
    我的意思是调用一个函数（不知道Delphi中有没有），就如同在键盘上按下了Tab键，如果Form上焦点在一个Button上，就会跳到另一个Button上；如果焦点在网格控件上，就跳到下一个单元格
    你看看这一篇就知道我为什么问这个问题了
    http://expert.csdn.net/Expert/topic/1716/1716840.xml?temp=.4455683
      

  4.   

    SelectNext(ActiveControl,True,True);