Form Docking Probleme

[Lucaito]

Hab des einfach mit nem Timer jetz gemacht, der jede Millisekunde die Pos der Mainform prueft:

Delphi-Quellcode:

procedure TForm1.MoveTimerTimer(Sender: TObject);
begin
   if((Form2.Left) <> (Form1.Left + Form1.Width + 16)) or
           (Form2.Top <> Form1.Top) then
   begin
      Form2.Left := Form1.Left + Form1.Width + 16;
      Form2.Top := Form1.Top;
   end;
end;

Das +16 damit man die ordentlich nebeneinander sieht, ohne ueberlappen die sich n bissl.

Close pl0x.