如何实现下窗体的特殊效果
应用程序启动后，点击程序上的一按钮，然后程序右边逐渐弹出一新窗口，请问这该如何下手呢 ？ 谢谢
PS：就像SopCast这个网络直播软件一样，在左边点击频道，然后右边就逐渐弹出播放窗口
[解决办法]
随便写了写代码，还要加写优化效果，这个基本上能实现
逐渐弹出播放窗口的要求了！
var
i : integer;
begin
Form2 := TForm2.Create(self);
form2.Show;
form2.Left := Form1.Left + Form1.Width;
Form2.Width := 1;
for i := 0 to 200 do
begin
Form2.Width := i * 2;
Form2.Invalidate;
end;
end;
[解决办法]
SetTimer
