用一个Timer
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if formatdatetime('hh:mm',time)='12:00' then
begin
// do something yourself
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if formatdatetime('hh:mm',time)='12:00' then
begin
// do something yourself
end;
end;
解决方案 »
- 如何快速地将通过复杂计算的取得的数据集里的数导入事先定义的公式的excel中?
- 一个socket连接的问题(在线等待!急)
- 问一下关于权限的问题,大家是怎样设计的.
- 请教个关于image的问题
- floattostr在ADO连oracle中!
- delphi新手求助!
- 散分!!!!!!!就要去实习了,第一次一个人出远门,也算是和社会快接轨了,祝和我一样的delphi兄弟好运!
- 如何在程序中从网站上下载一个文件?
- 沉默的羔羊!祝大伙春节快乐!快来UP!
- ******* 致Delphi和C++Builder社群的一封公开信 *******
- 寻求《Delphi 5.x高效数据库应用系统篇》电子版和示例代码的下载
- 本人很想学懂format这个函数的使用,可以举些例子吗,送100分,一定送出,谢谢
begin
if formatdatetime('hh:mm',time)='12:00'或者等于1:00或者等于......各个点数 then
begin
// do something yourself
end;
end;