Hallo,
habe momentan das gleiche Problem. Ist es möglich diese funktion auf eine standard Paintbox zu übertragen? Wenn ja wie denn, irgendwie bekomme ich es nicht hin eine neue komp zu erstellen.
Gruß
Vielleicht geht es mit einem PageControl (PC1):
(Ich habe in einem Projekt viele Tabs und darauf bis zu 9 Images.)
Delphi-Quellcode:
procedure TForm1.PC1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var r : TPoint;
begin
GetCursorPos(r);
Label2.Caption:= INTTOSTR(r.X) +' - '+ INTTOSTR(r.Y);
end;