ComboBoxEx1的焦点转移问题

lyc1028

想用回车转移焦点,在ComboBoxEx1的OnKeydown中写下:

if key=13 then
SendMessage(Handle,WM_NEXTDLGCTL,0,0);
发现无法转移焦点,其他别的用此法均可.

xclzc17

    首先，在主窗体中声明以下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作为参数传送。在整个程序中都起作用。

lyc1028

好象没这么复杂,自己搞好了.
SendMessage(Handle,WM_NEXTDLGCTL,0,0);改成
PostMessage(Handle,WM_NEXTDLGCTL,0,0);

eren8899

恭喜!

lazying

顶