if Assigned(WaitFrm)=False then
WaitFrm := TWaitFrm.Create(Application)
else
Application.CreateForm(TWaitFrm,waitfrm);
WaitFrm.Show;
WaitFrm.Update;
Application.ProcessMessages;
----------
WaitFrm.Hide;
WaitFrm := TWaitFrm.Create(Application)
else
Application.CreateForm(TWaitFrm,waitfrm);
WaitFrm.Show;
WaitFrm.Update;
Application.ProcessMessages;
----------
WaitFrm.Hide;
FreeAndNil(WaitFrm);
本文转自鹅倌51CTO博客，原文链接： http://blog.51cto.com/kaixinbuliao/1622751，如需转载请自行联系原作者
