Die Logik könnte etwa so aussehen:
Delphi-Quellcode:
If ((Form2.Left - (Form1.Left + Form1.Width)) < 50) then
begin
// Andocken aktivieren
end
else
begin
// Andocken deaktivieren
end;
Das Andocken wird dann nur aktiviert, wenn Form2 weniger als 50 Pixel von der rechten Seite von Form1 entfernt ist.