плавный пока таб щет

[Noble23]

Здраствуйте , у меня вот возник вопросик можно ли зделать так : например если мы пропишем команду на форме
AnimateWindow(Handle, 1000, AW_VER_POSITIVE);
то при запуске программы у нас форма откроеться плавно с права на лево , можно ли зделать так что бы при смене таб щита например на табщит2 он тоже плавно открывался справа налево ??

[Алексей_2012]

procedure TForm2.BitBtn1Click(Sender: TObject);
var
kid:byte;
begin
form2.autosize:=false;
for kid:=1 to 255 do
begin
form2.left:=form2.left-6;
sleep(1);
end;
form1.show;
Form1.Position:=poScreenCenter;
end;

можно и в ручную прописать, вот код из моей программы)

[Noble23]

что то когда запускаю ругается на строчку
form2.autosize:=false;
и другие связанные с форм2

[Noble23]

я зделал но это помоему что то не то оно не работает как надо оно просто по кнопке исчезает там почти даже незаметно что в бок . я хотел бы как
AnimateWindow(Handle, 1000, AW_VER_POSITIVE);
что бы плавно как бы сбоку заезжало

[Алексей_2012]

AnimateWindow(Handle, 1000, AW_VER_POSITIVE);

у меня эта строчка вообще не заработала

что то когда запускаю ругается на строчку
form2.autosize:=false;
и другие связанные с форм2

а как у вас форма называется? посмотрите свойство name формы, и вместо форм2 пишите то, что написано в name, по-идее не должно ругаться