Delphi-Quellcode:
begin
if (Form3.Left < (Form1.Left + Form1.Width + 10)) and
((Form3.Left + Form3.Width) >= (Form1.Left - 10)) and
(Form3.Top < (Form1.Top + Form1.Height + 10)) and
((Form3.Top + Form3.Height) >= (Form1.Top - 10))then
Nur wenn man Form1 ganz schnell von Form2 wegzieht dann folgt Form2 nicht immer.
edit:
Nur wie kann man den code jetzt auf x Forms erweitern?