(1) der Mittelpunkt des Kreises liegt bei (xm,ym)= ((xe-xa) div 2+xa,(ye-ya) div 2+ya)
(2) der Abstand wäre dann (mausx-xm,mausy-ym)
(3) schreibe eine eigene Kreisprocedure:
Delphi-Quellcode:
procedure Circle (const ACanvas: TCanvas; const Xm,Ym,Radius: Integer);
var
H: Integer;
begin
H := Radius div 2;
ACanvas.Ellipse (Xm-H,Ym-H,Xm+H,Ym+H);
end;
das macht die Sache übersichtlicher
//Edit
Problem mit einem M