Komponente über einer anderen beim Verschieben

[Alexander Roth]

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.