摘要: 原理:1、新建一个waitform,添加控件: 背景图片BACKPIC:Timage控件; 再叠加一个WAIT图标(TAniIndicato控件)。2、在要实现wait效果的form上添加一个控件作为背景工作区(例如TPANEL)。 需要实现wait效果时,调用TPANEL.MakeScreenshot,替换waitform上的BACKPIC,显示WAIT图标。 结束时,关闭waitform。关键代码如下:unit waitform;interfaceuses......;typeTwaitform= class(TForm) WorkingPanel: TRectangle; Gra... 阅读全文
posted @ 2014-02-14 09:27 happyhills 阅读(998) 评论(0) 推荐(0) 编辑