Delphi10.3状态栏上显示进度条/图片

1】拖动一个StatusBar1到窗口上，并添加三个StatusPanel，我们将ID为2的StatusPanel作为进度条显示；

 

---

2】声名全局变量

private
    { Private declarations }
        //声明一个进度条对象
    MyProg:TProgressbar;//要在界面上放一个TProgressbar，否则会提示找不到单元

//声明进度条要插入显示的区域 MyRect2:TRect;

---

3】FormShow事件里创建进度条TProgressbar对象 

procedure TForm6.FormShow(Sender: TObject);
begin
 //创建TProgressbar对象
  MyProg:=TProgressbar.Create(Application);
      //父类为状态栏
  MyProg.Parent:=StatusBar1;
end;

---

4】设置显示 范围

procedure TForm6.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
  const Rect: TRect);
begin
if  Panel.ID =2 then MyRect2:=Rect;
end;

---

5】设置为自画模式 

---

6】进度条 改变 并显示

procedure TForm6.Button1Click(Sender: TObject);
begin
  //设定进度条状态
  with MyProg do
  begin
    //设置长度、宽度和高度
    left:=MyRect2.Left;
    top:=MyRect2.Top;
    width:=MyRect2.Right-MyRect2.Left;
    height:=MyRect2.Bottom-MyRect2.Top;
    //设置进度条的值
    Min:=0;
    Max:=100;
    Position:=Position+10;
    //进度条可见
    Visible:=True;
  end;
end;

7】窗口大小变了，进度条长度也随之改变 

procedure TForm6.FormResize(Sender: TObject);  //窗口大小变了，进度条长度也随之改变
begin
  with MyProg do
  begin
    //设置长度、宽度和高度
    left:=MyRect2.Left;
    top:=MyRect2.Top;
    width:=MyRect2.Right-MyRect2.Left;
    height:=MyRect2.Bottom-MyRect2.Top;
  end;
end;

 

---

类似地，在状态栏里显示图片

  private
    { Private declarations }
      Image1:TImage;//声明一个图片对象
     MyRect0:TRect;//声明图片要插入的范围

procedure TForm6.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
  const Rect: TRect);
begin
   if  Panel.ID =1 then MyRect0:=Rect;//在状态栏ID=1显示图片
end;

procedure TForm3.Button2Click(Sender: TObject);
begin//显示图片1
        with Image1 do
    begin
      Parent:=StatusBar1;
     // Picture.LoadFromFile('OK.jpg');
      left:=MyRect0.Left;
      Top:=MyRect0.Top;
      Width:=MyRect0.Right-MyRect0.Left;
      Height:=MyRect0.Bottom-MyRect0.Top;
      Visible:=True;
      BringToFront;
    end;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin//显示图片2
        with Image2 do
    begin
      Parent:=StatusBar1;
     // Picture.LoadFromFile('OK.jpg');
      left:=MyRect0.Left;
      Top:=MyRect0.Top;
      Width:=MyRect0.Right-MyRect0.Left;
      Height:=MyRect0.Bottom-MyRect0.Top;
      Visible:=True;
      BringToFront;
    end;
end;

原文链接:https://www.cnblogs.com/tulater/p/13029638.html
如有疑问请与原作者联系

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有