Ok letzter Post..
Ich weis nicht was du da Rumdokterst ein einfaches PtInRect reicht siehe mein Beispiel oben.
Delphi-Quellcode:
function TRechteck.rechteckGetroffen(var Getroffen: BOOL): Boolean;
var
pt: TPoint;
begin
pt := Form1.btnRechteck.ScreenToClient(Mouse.CursorPos);
if PtInRect(Form1.btnRechteck.ClientRect, pt) then
begin
Result := True;
end;
end;
Wenn du jetzt 10 Rechtecke hast dann musst du nur bei allen prüfen ob sich deine Maus im RECT desjeweiligen Controls (Rechteck befindet)
Wie mein For.. Next verwendet sollte dir doch klar sein oder?
ganze 2 Zeilen und fertig!
gruss