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实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta

Delphi中使用可修改的常量

Delphi 全局的鼠标钩子 使用钩子函数数据传递

Delphi 10 下提示sharedactivitycontext错误的解决方法

Delphi 三种方式读取txt文本文件

Delphi中通过tclientsocket获取公网(wan)ip地址

Delphi 10.3新特性 内联变量

Delphi + word = 数据库 + 公文处理

Delphi路径分割符处理相关函数

如何使用Delphi 10 seattle的android应用做intent的发送和接收

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

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