statusbar简单应用
procedure TForm1.FormCreate(Sender: TObject);
var
DT:TdateTime;
Dw:Integer;
S:String;
begin
Dt:=now;
Dw:=DayOfWeek(Dt);
StatusBar1.Panels[0].Text:=SysUtils.DateToStr(Dt);
Case Dw of
1:S:='星期天';
2:S:='星期一';
3:S:='星期二';
4:S:='星期三';
5:S:='星期四';
6:S:='星期五';
7:S:='星期六';
end;
StatusBar1.Panels[1].Text:=S;
补充:要想时间一直走的话,就加个timer,在ontimer里写
procedure
TForm1.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[0].Text := TimeToStr(now);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
statusbar1.Panels[0].Text:='正在读取,请稍后...';
timer1.Enabled := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[0].Text:='读取完成';
end;
timer时间设置为3000