怎么在程序界面上显示时间？？？(10分)

Z

zh_2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-29

• #1

我想在程序截面上显示时间，请问怎么做？

 

C

commons_sheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-29

• #2

加个Ttimer，然后在ontimer事件中加入楼上写的那个代码

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-29

• #3

放个Ttime控件
procedure Tfrm_main.tm_mainTimer(Sender: TObject);
begin
stsbar_main.Panels [4].Text :=' '+ formatdatetime(' yyyy-mm-dd',date)+formatdatetime(' hh:mm',time);
end;

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-29

• #4

Label1.Caption := DateTimeToStr(Now);

 

S

ski

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-29

• #5

var systime:tsystemtime;
begin
GetSystemTime(SysTime);
statusbar1.Panels[0].Text:='登录时间: '+IntToStr(SysTime.wYear)+'年'+IntToStr(SysTime.wMonth)+'月'+IntToStr(SysTime.wday)+'日'+' '+timetostr(time);

end;

 

I

itman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-29

• #6

在你想要放时间的地方放上一个LABEL 然后再放一个TIME控件把TIME的间隔时间设为1然后在
ONTIME妻件中加入显示时间的代码.Label1.Caption := DateTimeToStr(Now);或其它你想要的
时间显示格式,例如只显示时间啦

 

Z

zh_2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-29

• #7

多人接受答案了。

 

珊

珊瑚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-29

• #8

加入一个时间控件Ttimer和Tlabel,在Ttimet的ontimer 中加入合适的代码，如：Label1.Caption := DateTimeToStr(Now);
或是你想要的时间格式了！