Rechteck verschieben

[EWeiss]

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