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 当前日期的加减运算

Delphi 将字符串转换成 utf8 编码的函数

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi 下载并显示网上的图片

Delphi 采集功能代码getstr

Delphi processid, process handle, window handle 之间的互相转换

Delphi memo1删除前n行

Delphi 怎样判断spinedit在微调时值是增加还是减少了

Delphi 获取鼠标当前位置的相对坐标

Delphi 自定义消息拦截

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

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