Mausposition

[Phoenix]

Hallo!
<br>
Wie schaffe ich es, einen Kreis genau auf die Position zu bekommen, wo ich hinklicke?
<br>
Ich würde mich auf eine Antwort freuen

[Uli Becker]

Hallo,

Beispiel:

<pre>
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var pPos : TPoint;
circle : TShape;
begin
circle := TShape.create(self);
with circle do
begin
shape := stCircle;
parent := self;
left := x-(circle.width div 2);
top := y-(circle.height div 2);
end;
end;
</pre>

Viel Erfolg..

[Phoenix]

Vielen Dank für die Hilfe