Verschieben von Buttons mit Befehl [Anfängerfrage]

[DeddyH]

Zitat von Xong:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  // Wenn "Nach-Unten"-Taste gedrückt wurde, setze Button.left auf 1. Öhm...
  //if Key = 'VK_DOWN' then Button1.left := 1;
  case Key of
    VK_DOWN: Button1.Top := Button1.Top + 1;
    VK_UP: Button1.Top := Button1.Top - 1;
    {...}
  end;
end;

Müsste das so nicht in KeyDown stehen?