Работа с двумя формами одновременно

[demiancz]

Интересует два вопроса:
1. Как запустить вторую форму при запуске приложения
2. Как сделать чтобы вторая форма была прикреплена к первой и перемещалась вместе с перемещением первой формы.

По первому пробовал так, но может кто получше что посоветует

procedure TMainForm.FormShow(Sender: TObject);
begin
SecondForm.Show;
end;

По второму так

procedure TMainForm.FormPaint(Sender: TObject);
begin
SecondForm.Top := MainForm.Top;
SecondForm.Left := MainForm.Left - 250;
end;

Но здесь не очень красиво получается. Пока тянеш первую форму, вторая все равно остается на месте, а надо что бы когда таскаешь первую форму по экрану вторая тоже таскалась за ней.

[phomm]

http://programmersforum.ru/showthread.php?t=227668
см. мой пост, примерно то же самое там я писал, что тебе надо.

[demiancz]

Пример нормальный, но без таймера можно ли как то обойтись?

И как сделать что бы вторая форма слева была была? В приведенном вами примере она как ни крути справа.
procedure TMainForm.Timer1Timer(Sender: TObject);
begin

if SecondForm.visible then
  begin
    SecondForm.Left := self.Left + self.ClientWidth;
    TSecondForm.Top := self.Top;
 end;
end;

[phomm]

Тяжело...
Ну, стоит _соответствующе_ поменять SecondForm.Left
Например, так:

SecondForm.Left := self.Left - SecondForm.Width;

[саша40]

1. В FormCreate второй формы поместить код с её вызовом(Show)