Question

delphi7中怎么样设置三秒钟后显示下一个窗体

上一个窗体显示后三秒，下一个窗体自动显示，并且关闭这个窗体

Answer 1

使用Timer控件就可以实现。implementation
uses unit2; //上一窗体与下一窗体衔接。
var //定义全局变量i。
i:Integer;
{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
if i=3 then
Form1.Hide;
Form2.Show;
end;

Answer 2

Timer设置Enabled为false 时间为3000 窗体active后Enabled设置为false
在ontimer事件中协商form2.show form1.close

Answer 3

使用Timer控件就可以实现。