Abfragen ob sich Maus in Kreis befindet

[DeddyH]

Nur so ein Gedanke: mit CreateEllipticRgnIndirect eine runde Region mit den passenden Koordinaten erstellen und mit PtInRegion abfragen.

[edit] Source dazu aus meiner Button-Komponente:

Delphi-Quellcode:

function TGDIPlusRoundButton.PointInRgn: Boolean;
var rHandle: THandle;
    p: TPoint;
begin
  Result := True;
  rHandle := CreateEllipticRgnIndirect(Rect(0,0,Self.Width,Self.Height));
  if rHandle <> 0 then
    begin
      p := Self.ScreenToClient(Mouse.CursorPos);
      Result := PtInRegion(rHandle,p.X,p.Y);
      DeleteObject(rHandle);
    end;
end;

[/edit]