定时自动关闭的弹出式对话框(全套delphi7源码)

这是一整套自动延时关闭对话框的演示源码，可实现定时自动关闭即将弹出的对话框， 我在其中演示了三种延时自动关闭的对话框： （1）延时9秒关闭ShowMessage （2）延时8秒关闭MessageBox （3）延时8秒关闭自定义CreateMessageDialog 相关知识借鉴于网络，现共享！