delphi 实现延时自动关闭对话框.docxVIP

delphi 实现延时自动关闭对话框 {*******************************************************} { 一种自动关闭对话框的简单方法 } { 使用方法：打开对话框前调用 SetDlgAutoClose } { 参数 1： 设定多长时间后关闭 } { 参数 2： 是否在对话框标题栏进行倒计时提示 } { 取消自动关闭调用 ResetDlgAutoClose } {*******************************************************}unit TimerDlg;interfaceuses Windows