CNPACK的源码中有一个
../cnpack/Source/FormsRep
可以到其主页中下载的 www.cnpack.org
* 软件名称:公共窗体库
* 单元名称:仿Foxmail动态提示窗体单元
* 单元作者:周劲羽 (zjy@cnpack.org)
* 备 注:动态提示窗体是非模态窗体,界面模仿Foxmail V4.0的提示窗口
* 该单元提供以下几个过程用于显示动态提示窗体:
* ShowMsg - 显示指定类型的动态窗体
* ShowInfo - 显示“提示”类型的动态窗体
* ShowWarning - 显示“警告”类型的动态窗体
* ShowError - 显示“错误”类型的动态窗体
* 通过设置全局变量来指定窗体属性
* ShowPos - 指定窗体出现的位置
* ShowDelay - 指定窗体显示延时,在窗体上点击左键可强迫其关闭
* 另外,还可通过设置各颜色值指定窗口颜色。
* 使用方法:在需要显示提示窗口的单元中uses本单元,当需要显示提示信息时直接
* 直接调用ShowXXXX过程即可。
* 注意事项:同一时间屏幕上可同时出现多个提示窗体,相互重叠。
* 请勿直接创建窗体实例。