Mega Code Archive

 

Categories / Delphi / Examples

 

Making the Enter Key act like Tab

Title: making the Enter Key act like Tab? { This code gives the key the same habbit as the key to change focus between Controls. Mit diesem Code kann man sich mit der Enter Taste zwischen mehreren Textfeldern bewegen.(anstatt nur mit der Tabulatortaste) } // Form1.KeyPreview := True ! procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; { check if SHIFT - Key is pressed } if GetKeyState(VK_Shift) and $8000 0 then PostMessage(Handle, WM_NEXTDLGCTL, 1, 0) else PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); end; end;