本文分享了一种在Delphi7中实现的定时自动关闭对话框的方法，通过SetDlgAutoClose和ResetDlgAutoClose两个过程，可以在指定时间后自动关闭对话框，并且可以选择是否在标题栏显示倒计时提示。
分享一种定时对话框功能
一种自动关闭对话框的简单方法
{
}
{ 一种自动关闭对话框的简单方法 }
{ 使用方法：打开对话框前调用 SetDlgAutoClose }
{ 参数1： 设定多长时间后关闭 }
{ 参数2： 是否在对话框标题栏进行倒计时提示 }
{ 取消自动关闭调用 ResetDlgAutoClose }
{
}
unit unt_TimerDlg;
interface
uses
Windows
, Messages
, SysUtils, Variants
, Classes, Graphics, Controls,
Forms, ExtCtrls;
// 如果指定的时间没有操作对话框,则自动关闭
procedure ResetDlgAutoClose;
procedure SetDlgAutoClose(nTime
最低0.47元/天 解锁文章
6448
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
