{ 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 ! procedureTForm1.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
;