如何实现程序的时钟跟着系统同时变化!
解决方案 »
- fastreport中SUM的用法請教
- 如何判断edit输入的是整数
- 如何实现多用户批量提交记录到服务器上 (百分送上 高手快来)
- 如何清空TJpegImage啊?还有通过LoadFromStream导入新的JPG ?
- 一個關於listbox的小問題?
- 如何象win的画图程序中的剪切框一样,在Timage上画一个?
- 不好意思让大家笑话了
- 请问如何用Delphi或C++Builder实现屏幕画面的截取?
- 请问用DELPHI开发webservice服务器端,用什么版本DELPHI最好?
- 关于存贮过程的问题
- 请教大家一个程序启动时遇到的问题!
- 寻求李维<delphi5.x 分布式多层应用>系统篇所带光盘中的例程
procedure Tmainfrm.Timer1Timer(Sender: TObject);
begin
label1.caption:=timetostr(now);
end;
procedure Tmainfrm.Timer1Timer(Sender: TObject);
begin
label1.caption:=timetostr(time);
end;
加代码::
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption :=dateTimeTostr(now);
end;