Question

Delphi 在规定的时间 弹出对话框消息

比如,我要设置在 每天的中午12:00 时.就自动弹出消息 "请下班的时候关闭电脑!" 在每天的下午 17:30 自动弹出消息 "请关闭显示器." 求详细步骤与代码..感谢!

Answer 1

放一定时器

var i,j:Integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if (FormatDateTime('t',Now)='12:00') and (i<>1) then
    begin
       i:=1;
       ShowMessage('请下班的时候关闭电脑!');
    end;
    if (FormatDateTime('t',Now)='17:30') and (j<>1) then
    begin
       j:=1;
       ShowMessage('请关闭显示器!');
    end;
end;

追问

可以正常提示,但是Message提示窗口.关不掉.好像一直在弹出提示...怎么设置只提示一次?弹出一次窗口,就可以?.

追答

第一i,j不能定义在过程里，要定义为全局变量
第二 在窗体创建过程中将i、j赋值为0.

Answer 2

本例的 i, j 必须申明为全局变量！ 你申明在过程内部, 为私有变量了, 就会出现像你说的这样不停的弹窗提示, 并且会在1分钟内无法关掉弹出的提示。