Form an Form andocken

[DataCool]

Hi,

wie kann ich eine Form an eine andere andocken lassen ?
Wie in der Delphi IDE ? Das Delphi-Demo Docking habe ich mir schon angeschaut, bin aber nicht draus schlau geworden bzw. die Forms lassen sich dort auch nicht andocken.

Jemand ne Idee ?

Data

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