Delphi 在StatusBar1.Panels上显示日期时间星期

本文整理自网络，侵删。

 Delphi 在StatusBar1.Panels上显示日期时间星期

procedure TForm1.Timer1Timer(Sender: TObject);
var
ADate:TDateTime;
ss:string;
Days:array[1..7] of string;
begin
days[1]:='星期日';
days[2]:='星期一';
days[3]:='星期二';
days[4]:='星期三';
days[5]:='星期四';
days[6]:='星期五';
days[7]:='星期六';
ADate:=strtodate(FormatDateTime('yyyy-mm-dd',date));
ss:=FormatDateTime('yyyy"年"m"月"d"日"hh:nn:ss',now);
StatusBar1.Panels[1].Text:='当前时间:'+ss+#32+days[DayOfWeek(ADate)];

end; 

相关阅读 >>

Delphi中输入法模式imemode属性的解释

idhttpserver允许跨域访问

Delphi 查找指定目录，指定扩展名的所有文件名

Delphi xe5 将Delphi code从winos 迁移到ios与android

Delphi与进程、窗口句柄、文件属性、程序运行状态

Delphi xe5 android在桌面添加快捷方式

Delphi twebbrowser流程讲解及如何判断下载网页成功

Delphi获取dos命令行输出函数 运行cmd命令并获取结果【方法2】

print documents from Delphi - print pdf, doc, xls, html, rtf, docx, txt

Delphi firedac 如何按整型(byte)读取 mysql tinyint(1) 类型字段？

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 在StatusBar1.Panels上显示日期时间星期