Edit-Feld nach Eingabe mit ENTER verlassen

[dominikkv]

Delphi-Quellcode:

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