Form an Form andocken

[City Light]

Hallo DataCool

ich hab da mal was getestet ,ich mein der code müßte glaub ich noch überarbeitet werden weil die procedur zulangsam ist!
ich weiß auch nicht so genau ob es das ist was du suchst

Delphi-Quellcode:

procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Form2.Top+Form2.Height > Form3.Top-Form3.Height -40 then
     begin
     Form3.Top := Form2.Top + Form2.Height;
     Form3.Left := Form2.Left;
     end;
end;