Hallo,
klappt bei mir schon ewig und drei Tage so:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if Key = #13
then
begin
Key := #0;
PostMessage(
Handle, WM_NextDlgCtl, 0, 0);
end;
end;
So springt er immer auf das nächste Focus-Feld.
Kannst natürlich auch so machen:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
ActiveControl := Edit2;
end;
end;