如何显示当前日期!急!(30分)

  • 主题发起人 wangchlai
  • 开始时间
W

wangchlai

Unregistered / Unconfirmed
GUEST, unregistred user!
我是即将毕业的毕业生~!需要用delphi做个开发系统!现在要主界面上的statusbar控件的panles[1].text里显示当前日期该怎么弄!各位高手给点意见!谢谢!急!
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
showmessage(FormatDateTime('yyyy年mm月dd日',now));
end;
 
procedure Tfrm_Main.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[1].Text := FormatDateTime('yyyy-MM-dd',Date);
StatusBar1.Panels[2].Text := FormatDateTime('hh:mm:ss',Now);
end;
 
formatdatetime('yyyy/mm/dd',now);
 
StatusBar1.Panels[1].Text := FormatDateTime('yyyy-MM-dd',Now);
 
StatusBar1.Panels[1].Text := FormatDateTime('yyyy年MM月DD日 HH:MM:SS',now);
[:D]
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部