如何在statusbar里显示当前的日期、时间等

如题

解决方案 »

  1.   

    statusbar1.Panels[0].Text:='日期：'+copy(DATETOSTR(date),0,4)+'年'+copy(DATETOSTR(date),6,2)+'月'+copy(DATETOSTR(date),9,2)+'日';
    statusbar1.Panels[1].Text:='时间：'+timeTOSTR(TIME);
    你添加一STATUSBAR，在属性中加入两部分。
      

  2.   

    var
       Present: TDateTime;
       Year, Month, Day, Hour, Min, Sec, MSec: Word;
       SS: String;
    begin
       Present := Now;
       DecodeDate(Present, Year, Month, Day);
       DecodeTime(Present, Hour, Min, Sec, MSec);
       SS := '当前时间：';
       SS := SS+IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(Day)+'日';
       SS := SS+'  '+IntToStr(Hour)+':'+IntToStr(Min)+':'+IntToStr(Sec);
       MainStatusBar.Panels[1].Text := SS;
      

  3.   

    楼上的在搞什么名堂???加一个Timer控件, 在OnTimer事件中写  StatusBar1.Panels[0].Text := DateTimeToStr(Now);不就可以吗?
      

  4.   

    thank you Devidzhang(无名),also thank wwwwA and comerliang.
      

  5.   

    Devidzhang(无名)的方法会显示“年”“月”“日”吗？我只的是这三个字。