DBEdit mit Enter weiter zum nächsten DBEdit ?

[LOMBI]

Hallo vader,

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      Key := #0;
  if GetKeyState(VK_Shift) and $8000 <> 0 
    then PostMessage(Handle, WM_NextDlgCtl, 1, 0)
    else PostMessage(Handle, WM_NextDlgCtl, 0, 0)
  end;
end;

Im OI der Form, Eigenschaften:

KeyPreview := True;

Gruß
Lombi