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

你可能感兴趣的:(status)