In Kreis klicken funktioniert nicht

**SaFu**

Tach,

hatte vor längerer Zeit schonmal das Thema gehabt und konnte das problem bis jetzt nicht beheben.

Ich habe drei TShaps übereinander liegen jetzt so geprüft werden im welchen Shape(als Kreis) sich die Maus befindet.

Das Problem ist jetzt das es zu ungenau ist wie bekomme ich das genauer hin.

So sieht bis jetzt meine Procedure aus

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

var

  Inside: Boolean;

  R: Extended;

begin

  if Shape1.Width < Shape1.Height then

   R := Shape1.Width/2

  else

   R := Shape1.Height/2;

  Inside := Sqr(X - R) + Sqr(Y - R) <= Sqr(R);

  if inside then

   begin

     lblPreis.Caption:= '55€';

   end;

end;

Projekt ist mal im Anhang.

Danke schon mal im voraus

In Kreis klicken funktioniert nicht

In Kreis klicken funktioniert nicht

Forumregeln