Title: Jump to the next control on enter
Question: I would like to tranform the RETURN key into a TAB key. When the user is
pressing RETURN the cursor should jump to the next control. The default
button should not be executed.
Answer:
This code works when there is no default button and Form.KeyPreview is set to
true. RETURN jumps to the next control and SHIFT+RETURN to the prior one:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
Key := #0; {schaltet den lstigen Beep ab}
if GetKeyState(VK_Shift) and $8000 0 then
PostMessage(Form1.Handle, WM_NEXTDLGCTL, 1, 0)
else
PostMessage(Form1.Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;