delphi 星期几的问题,
procedureTForm1.Timer3Timer(Sender:TObject);beginself.StatusBar1.Panels[0].Text:='欢迎使...
procedure TForm1.Timer3Timer(Sender: TObject);
begin
self.StatusBar1.Panels[0].Text:=' 欢迎使用';
self.StatusBar1.Panels[1].Text:=' 正努力完善';
self.StatusBar1.Panels[2].Text:=' 日期: '+Datetostr(date);
self.StatusBar1.Panels[3].Text:=' 时间: '+Timetostr(now);
self.StatusBar1.Panels[4].Text:=' 星期: '+DayOfWeek(Now);
end;
星期几显示不出来呢?日期时间都正常,请指教,多谢! 展开
begin
self.StatusBar1.Panels[0].Text:=' 欢迎使用';
self.StatusBar1.Panels[1].Text:=' 正努力完善';
self.StatusBar1.Panels[2].Text:=' 日期: '+Datetostr(date);
self.StatusBar1.Panels[3].Text:=' 时间: '+Timetostr(now);
self.StatusBar1.Panels[4].Text:=' 星期: '+DayOfWeek(Now);
end;
星期几显示不出来呢?日期时间都正常,请指教,多谢! 展开
3个回答
ZESTRON
2024-09-04 广告
2024-09-04 广告
在Dr. O.K. Wack Chemie GmbH,我们高度重视ZESTRON的表界面分析技术。该技术通过深入研究材料表面与界面的性质,为提升产品质量与可靠性提供了有力支持。ZESTRON的表界面分析不仅涵盖了相变化、化学反应、吸附与解吸...
点击进入详情页
本回答由ZESTRON提供
展开全部
同意一楼的回答,请把他提供的函数加到你的代码中,并把显示星期的一行改为:
self.StatusBar1.Panels[4].Text:=GetWeek;
self.StatusBar1.Panels[4].Text:=GetWeek;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
self.StatusBar1.Panels[4].Text:='weekday'+inttostr(DayOfWeek(Now));
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询