小 小乌龟 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-09 #1 怎么样才能在StatusBar上显示系统的时间。 我的意思是只要程序在运行，它也跟着系统时间走。就象是Windows的时间。 我的都是定在当前的时间。不跟着系统时间走。帮帮忙。谢谢！
W wlm_8888 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-09 #2 用timer控件刷新就行了，我的就是这样实现的，代码是这样的： procedure TForm2.Timer2Timer(Sender: TObject); var wlm: string; begin case dayofweek(date()) of 2: wlm := '星期一'; 3: wlm := '星期二'; 4: wlm := '星期三'; 5: wlm := '星期四'; 6: wlm := '星期五'; 7: wlm := '星期六'; 1: wlm := '星期日'; end; StatusBar1.Panels[3].Text := formatdatetime('yyyy年mm月dd日 hh时nn分ss秒', now()) + ' [' + wlm + ']' end; 初学，水平不高，见笑了
用timer控件刷新就行了，我的就是这样实现的，代码是这样的： procedure TForm2.Timer2Timer(Sender: TObject); var wlm: string; begin case dayofweek(date()) of 2: wlm := '星期一'; 3: wlm := '星期二'; 4: wlm := '星期三'; 5: wlm := '星期四'; 6: wlm := '星期五'; 7: wlm := '星期六'; 1: wlm := '星期日'; end; StatusBar1.Panels[3].Text := formatdatetime('yyyy年mm月dd日 hh时nn分ss秒', now()) + ' [' + wlm + ']' end; 初学，水平不高，见笑了
D deardai Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-09 #3 是啊,加个Timer控件,把interval设为1000, 然后加上下面几句话 begin timer1.enable:=false; statusbar1.panels[3].text=fromatdatetime('yyyy-mm-dd hh:mm:ss',now()); timer1.enable:=true; end;
是啊,加个Timer控件,把interval设为1000, 然后加上下面几句话 begin timer1.enable:=false; statusbar1.panels[3].text=fromatdatetime('yyyy-mm-dd hh:mm:ss',now()); timer1.enable:=true; end;
S sunnyfairy Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-09 #5 deardai的方法是可以的. Raize中有一个控件,一行代码不用写放上去就走.爽歪歪..
L lifangchao2008 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-09 #6 我一般的情况下会在两个事件中写 1.FROMSHOW 2.Timer中! 只是为了窗口显示时就显示时间才这样做的! 代码如下: statusbar1[1].text := FormatDate('yyyy年mm月dd日 hh时nn分ss秒',now());
我一般的情况下会在两个事件中写 1.FROMSHOW 2.Timer中! 只是为了窗口显示时就显示时间才这样做的! 代码如下: statusbar1[1].text := FormatDate('yyyy年mm月dd日 hh时nn分ss秒',now());
L lifangchao2008 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-09 #7 呵呵不好意思少写了东动: 在看一下: statusbar1.panels[1].text := FormatDate('yyyy年mm月dd日 hh时nn分ss秒',now());
