Анимированные движения формы

[Claster]

Все доброго времени суток.....уважаемые профессионала подскажите как реализовать следующее: Есть 2 формы, на форме 1 есть кнопка, при нажатии на нее, с правой стороны должна выехать форма 2, во внутрь 1 формы( примерно на 1\3 формы 1)

[tsar_]

Ну например:
1) при создании второй формы указать ее координаты за правым краем;
2) Создать Timer с Enabled=false;
3) При нажатии на кнопку активировать таймер, в обработчике которого уменьшать координату Left для втотой формы;
4) При достижении второй формой определенной границы дезактивировать таймер.
5) Гордиться собой

[Claster]

Сообщение от tsar_

Ну например:
1) при создании второй формы указать ее координаты за правым краем;
2) Создать Timer с Enabled=false;
3) При нажатии на кнопку активировать таймер, в обработчике которого уменьшать координату Left для втотой формы;
4) При достижении второй формой определенной границы дезактивировать таймер.
5) Гордиться собой

1 и 4 пункт можно пожалуйста примерчик кода..........буду очень благодарен

[tsar_]

Мда... Вот касательно первого пункта (пишется обработчик события OnCreate для Form2 в unit2):

procedure TForm2.FormCreate(Sender: TObject);
begin
 Form2.Left:=Screen.Width;   //координата формы по горизонтали равна ширине 
                                        //экрана- ее не видно
end;

З.Ы. к первому пункту: если форма 1 не способна к перемещению, то в этом OnCreate можно сразу указать Form2.Top:={координата}. Если форму 1 можно двигать, нужно как-то связать координаты Top для двух форм.

Касательно 4 пункта: нужно придумать какое-то ограничение для координаты Form2.Left (тут уж включите фантазию, закодируйте как-нибудь свое же условие

примерно на 1\3 формы 1

)
проверку на достижение этого ограничения и в случае его истинности дезактивировать таймер. Ну например:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
 Form2.Left:=Form2.Left-10;
 if Form2.Left<={Ваше ограничение} then Timer1.Enabled:=false;
end;

З.Ы. ко всему: наверняка, все, что я тут наговорил, не есть оптимально, но для первого раза сойдет