闪烁窗体

标签：闪烁窗体

  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