新手Delphi的几个问题

Question

我的提问在：http://zhidao.baidu.com/question/144239777.html ，那里也有奖励哦！！我的e-mial:[[email protected]][/email]

Answer 1

没那么复杂吧，你的功能不复杂，但你的思路太复杂。按你的思路来可以这样。设置一个tm: TTimer，1秒执行一次。设计时Enabled为false定义一个全局变量 n: Integer = 1;form1的OnShow时，设置tm.Enabled := true;tm的OnTimer事件这样写
begin
image1.Visible := false;
image2.Visible := false;
image3.Visible := false;
image4.Visible := false;
image5.Visible := false;
image6.Visible := false;
image7.Visible := false;
image8.Visible := false;
image9.Visible := false;
image10.Visible := false;
case n of
1: image1.Visible := true;
2: image2.Visible := true;
3: image3.Visible := true;
4: image4.Visible := true;
5: image5.Visible := true;
6: image6.Visible := true;
7: image7.Visible := true;
8: image8.Visible := true;
9: image9.Visible := true;
10: image10.Visible := true;
end;
inc(n);
if n > 10 then
begin
  tm.Enabled := false;
  form2.show;
end;
end;

Answer 2

form2的OnClose事件加入
AnimateWindow(Handle, 250, AW_HOR_POSITIVE or AW_HIDE);
即可。