TEdit-Komponenten mit dynamischen SetFocus versehen

[Sharky]

Hai Barret,

ich würde das im OnKeyDown der Form machen (KeyPreview auf True setzen)

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_Down) then
  begin
    self.Perform(WM_NEXTDLGCTL, 0, 0); //Zum nächsten Element wechseln
  end;
  if (Key = VK_Up) then
  begin
    self.Perform(WM_NEXTDLGCTL, 1, 0); //Zum vorherigen Element wechseln
  end;
end;