Mausposition in Paintbox

[atreju2oo0]

Meiner Meinung nach wäre das der effizientere Weg:

Delphi-Quellcode:

procedure TForm1.PaintBox1Click(Sender: TObject);
var Pos:TPoint;
begin
Pos:=Mouse.CursorPos;
showmessage(inttostr(pos.X));
end;