Edit-Feld nach Eingabe mit ENTER verlassen

[DeddyH]

Zitat von wireless:

Es geht nur, wenn man es auf Keydown legt.

Einspruch!

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      Key := #0;
      self.Perform(WM_NEXTDLGCTL,0,0);
    end;
end;

P.S.: VK_RETURN ist #13