mit Enter ins nächste TDBEdit-Feld springen

[Meridian]

Hallo zusammen,

heute habe ich mal wieder eine Sache, die bei mir nicht funktioniert. Was mache ich falsch?

Anstatt immer nur mit der Tab-Taste, möchte ich gerne mit der Enter-Taste zum nächsten Eingabefeld springen. Der nachfolgende Code funktinierte damals unter Delphi. Ich habe schon im Netz gesucht, bin aber nicht wirklich fündig geworden.
KeyPreview habe ich auf True gesetzt.

procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SendMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;

Danke und ich wünsche einen schönen Feiertag.

[siro]

Code: Alles auswählen

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if key=#13 then
  begin
    key:=#0;
    SelectNext(ActiveControl,true, true);
  end;
end;  

Das sollte funktionieren, wenn KeyPreview auf TRUE steht.
Mit 3 Editfeldern läuft das bei mir jedenfalls.

auch nur abgeguckt...

[Meridian]

Klasse, funktioniert super.
Danke