if Assigned(WaitFrm)=False then
WaitFrm := TWaitFrm.Create(Application)
else
Application.CreateForm(TWaitFrm,waitfrm);
WaitFrm.Show;
WaitFrm.Update;
Application.ProcessMessages;
----------
WaitFrm.Hide;
FreeAndNil(WaitFrm);
时间: 2024-08-10 14:42:09