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.