Also, ich hab es so gemacht:
Delphi-Quellcode:
public
procedure ImageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
...
procedure TProjekt.ImageMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Testlabel.Caption := 'X: '+ IntToStr(X)+ 'Y: '+IntToStr(Y);
end;
Ist doch richtig, oder?