本文整理自网络,侵删。
procedure showmsg;
begin
showmessage('时间到了'); //检查时间已到。
end;
SetTimer(0, $AA, 5000, @showmsg);
相关阅读 >>
Delphi tstringlist 排序 customsort
Delphi vcl 在trichedit控件中设置wordwrap属性后无法自动换行的问题
Delphi getprocessisadmin()判断exe是否以管理员身份启动
更多相关阅读请进入《Delphi》频道 >>