Navigieren zwischen den Edit-Feldern

[Sharky]

Hai Chauffeur,

versuche es mal mit diesem Code im OnKeyDown der Form.

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
var
  Mgs: TMsg;
begin
  if (ActiveControl is TDBEdit) then
  begin
    if (Key = VK_RETURN) then
    begin
      Key := 0;
      Perform(WM_NEXTDLGCTL, 0, 0);
      PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);  // Beep
    end;
    if (Key = VK_UP) then
    begin
      Perform(WM_NEXTDLGCTL, 1, 0)
    end;
  end;
end;

Als erstes prüfe ich ob das aktuelle Control ein DBEdit ist. Nur dann soll die "sondernavigation" arbeiten.
Mit dem PeekMessage "entferne" ich den letzen Tastendruck um beim drücken von Enter das Beep zu unterbinden.