Hi, also wenn ich dich richtig verstehe, willst du mit der Maus die Komponente verschieben und dann prüfen o b etwa eine Komponente verdeckt wird.
Also:
Delphi-Quellcode:
for i:= 0 to form1.Components[form1.ComponentCount] do
begin
if (deinecomponent.left+deinecomponent.width>form1.Components[i].left) and not (form1.Components[i].left + form1.Components[i].width < deinecomponent.width)
or
(deinecomponent.top+deinecomponent.height>form1.Components[i].top) and not (form1.Components[i].left + form1.Components[i].height < deinecomponent.height)
then
showmessage('überschneidung');
end;
Das müsste klappen, ist aber nicht geprüft.