|
（1）在歡迎界面（welcome單元）中添加時鐘控件Timer1，設(shè)置恰當(dāng)?shù)膇nterval值，并在其OnTimer事件中添加如下代碼：
procedure TfrmWelcome.Timer1Timer(Sender: TObject);
begin
frmWelcome.Close;
Timer1.Enabled:= false;
end;
（2）在工程文件中創(chuàng)建主form的代碼之前，添加如下代碼：
frmWelcome:= TfrmWelcome.Create(Application);
frmWelcome.Show;
frmWelcome.Update;
while frmWelcome.Timer1.Enabled = true do
begin
Application.ProcessMessages;
end;
frmWelcome.Free;
|
|
|
