Du könntest für das MouseUp für alle Buttons die selbe Prozedur verwenden.
Damit hättest du 5 Prozeduren weniger.
Du könntest für das MouseDown ebenfalls für alle Buttons die selbe Prozedur verwenden und in der Prozedur abfragen, auf welchen Button geklickt wurde.
Ob das nun schöner ist???
Delphi-Quellcode:
procedure TForm_Roboter_GUI.Button_ManuellMouseDown(
Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Sender=Button_Manuell_Rechts_Zurueck then begin
...
end else if Sender=Button_Manuell_Vor then begin
...
end else ...
end;
end;
Und zum Problem mit "Nicht genügend wirkliche Parameter"
Delphi-Quellcode:
procedure TForm_Roboter_GUI.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case Key of
VK_UP : Button_Manuell_VorMouseDown(Button_Manuell_Vor, mbLeft, [], 0, 0);
VK_DOWN : Button_Manuell_ZurueckMouseDown(Button_Manuell_Zurueck, mbLeft, [], 0, 0);
end;
end;
Ich hab das hier auf die schnelle reingetippt. Fehler deshalb nicht ausgeschlossen.