TAB-Ereignis in Controls auf andere Taste verlagern

[little-x]

Ich habe ein TEDIT bzw. TDBEDIT-Control, welches auf die Eingabe von <ENTER> exakt in der gleichen Weise reagieren soll, als wenn <TAB> betätigt wird. Wie lässt sich so etwas bewerkstelligen?

[uwewo]

Delphi-Quellcode:

procedure TForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  If Key =#13 then Self.Perform(WM_NEXTDLGCTL,0,0);
end;

[SirThornberry]

noch besser:

Delphi-Quellcode:

procedure TForm.FormKeyPress(Sender: TObject; var Key: Char); 
begin 
  If (Key = #13) then
  begin
    Key := #0;
    Self.Perform(WM_NEXTDLGCTL,0,0);
  end;
end;