Tips (1541)

Tip Bewertung (8):

{
  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;