Question

delphi 入门问题 如何在delphi中的label上显示系统时间，是一直运行的时间，不是现在时间。

Answer 1

放一个timer在上面，在程序启动时先获取系统时间，然后在timer的事件里每次获取系统时间减去程序启动时的时间，就是你的系统运行的时间了。

Answer 2

综合上述:
1.增加一个 TTimer控件 (在System菜单项里), 名称应该是 Timer1
2.Timer1的 interval 输入 1000, 这里是毫秒, 可自定义输入.
3.双击 Timer1 进入代码界面, 例如:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Text:= FormatDateTime('yyyy'+'/'+'MM'+'/'+'dd'+';'+'hh'+':'+'mm'+':'+'ss', DateTime);
//-- 上面 FormatDateTime() 是把当前时间转换成 String类型的函数. --//
//-- 因为 Label1.Text 是string类型,所以不能直接 label.text:=DateTime --//
//-- 用上面函数可获取 年、月、日、时、分、秒的不同组合字符 --//
//-- 而且可以显示成 2011年01月19日 这样的格式 --//
//-- FormatDateTime('yyyy'+'年'+'MM'+'月'+'dd'+'日'); --//
end;

Answer 3

使用Timer控件,设定1000ms时间,在事件里执行
label.text:=DateTime

Answer 4

双击控件Timer1写代码
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Text:=‘当前系统时间是：'+DatetimetoStr(now) ;
end;

Answer 5

放一个timer控件，双击控件，在事件里写上label的时间显示