if Assigned(WaitFrm)=False then
WaitFrm := TWaitFrm.Create(Application)
else
Application.CreateForm(TWaitFrm,waitfrm);
WaitFrm.Show;
WaitFrm.Update;
Application.ProcessMessages;
----------
WaitFrm.Hide;
FreeAndNil(WaitFrm);
本文出自 “一切有为法，如梦幻泡影” 博客，请务必保留此出处http://kaixinbuliao.blog.51cto.com/2567365/1622751
原文：http://kaixinbuliao.blog.51cto.com/2567365/1622751