Vorhergehendes Control fokussieren

[BrunoT]

Hi DP'ler,

Ich habe folgendes gefunden, um bei Enter zun nächsten Control zu springen:

Delphi-Quellcode:

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key := #0;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

Das ist die Keypress für alle Edit-Compos;

nun will ich mit der Hoch-Taste auf das vorhergehende Control springen:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_UP then
    ...SetFocus;
end;

für jedes Edit müsste ich aber dieses Keydown-Ereignis hinterlegen. geht das nicht einfacher? (so wie bei Enter)

mfg

BrunoT