Komponente über einer anderen beim Verschieben

[Scorpion]

Hallo,

ich kann in meinem Programm eine Komponente verschieben, zur Laufzeit versteht sich Dies mache ich mit dem MouseMove Befehl u.a. der Komponente

Meine Frage, wie kann ich testen, ob sich während des Verschiebens die Komponente (teilweise) über einer anderen befindet?

Gruß
Nico

[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.