Wenn ich Deine Fragmente richtig überflogen haben, geht es Dir um Passagen dieser Art:
Delphi-Quellcode:
procedure TForm1.BauerMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
mousex := a1.left; // <-- a1 soll durch den jeweiligen namen ersetzt werden von
mousey := a1.top; // der komponente die es aufruft.
end;
Schau einmal in der
OH nach den Operatoren
is und
as. Wahrscheinlich solltes Du damit schon eine Lösung hinbekommen. Darüber hinaus solltest Du einfach ein biscchen hier im Forum
suchen, Lösungen für die mehrfache Verwendung derselben Ereignisbehandlungsroutine wurden schon häufiger diskutiert...