Forum: Multimedia
Delphi
by Fussball-Robby,
21. Jan 2009
Ich habe dir doch die Funktion bereits genannt: PtInRect. Beispiel: (schnell hingetippt)var
Rec: TRect;
RecWidth, RecHeight: Integer;
begin
RecWidth := Radius + 10;
RecHeight := Radius + 10;
Rec.Left := Mitte.X - RecWidth;
Rec.Right := Mitte.X + RecWidth;
Forum: Multimedia
Delphi
by Fussball-Robby,
21. Jan 2009
Berechne im OnMouseDown (ich schätze mal da wird gerechnet) mittels dem Satz des Pythagoras den Abstand vom angeklickten Punkt zum Mittelpunkt: Distanz = Wurzel((xMitte - X)² + (yMitte - Y)²) und rechne nur wenn die Distanz für dich klein genug ist,. Oder, wenn du es in einem Rechteck haben willst, hilft dir die Funktion PtInRect() weiter.