ComboBoxEx1 focus shift issue

lyc1028

Want to shift the focus with Enter, write in OnKeydown of ComboBoxEx1:

 if key = 13 then
 SendMessage (Handle, WM_NEXTDLGCTL, 0,0);
It is found that the focus cannot be transferred, and other methods can be used.

xclzc17

First, declare the following private procedure in the main form:

{------}
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;
{------}
    Add in the OnCreate event of the main form:

{------}
  Application.OnMessage: = DoEnterAsTab;
{------}
    During the running of the program, WM_KEYDOWN information is continuously received. If the key pressed is VK_RETURN (# 13), we simulate a keyboard event and pass VK_TAB as a parameter. Works throughout the program.

lyc1028

It doesn't seem so complicated, I've done it myself.
SendMessage (Handle, WM_NEXTDLGCTL, 0,0); changed to
PostMessage (Handle, WM_NEXTDLGCTL, 0,0);

eren8899

Congratulations!

lazying

top