Hallo
DP Freunde,
ich habe mal wieder ein kleines Problem.
Wie kann ich herrausfinden ob sich die Maus innerhalb eines Kreises befindet?
Ich habe dazu schon folgeden Code geschrieben was aber nur für ein Viereck funktioniert.
Also ich durchlaufe die Zeilen von oben links nach unten rechts und frage ab ob sich die Maus
an den jeweiligen Coordinaten befindet. Aber ein Kreis ist ja Rund und nun stehe ich vor dem problem
wie ich das bewerkstelligen soll. Mit 2 geschachtelten For-Schleifen komme ich da nicht weiter oder?
Hier erstmal was ich geschrieben habe:
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
x1, y1: Integer;
begin
for x1 := Shape1.Left to Shape1.Left + Shape1.Width -1 do
for y1 := Shape1.Top to Shape1.Top + Shape1.Height -1 do
if ((x1 = X) and (y1 = Y)) then
begin
//Maus in Shape also nicht nur in Kreis
break;
end;
end;
Vielen Dank schonmal im Voraus!
Mit freundlichen Grüßen
Onkelrossie