状态栏控件加入vcl控件如何实现呢?

Question

大虾给我帮助啊

Answer 1

找个第三方控件，或自己从delphi继承一个，只要将有个属性改一下就可以了

Answer 2

下边的代码是把一个ComBobox加到status上，
begin
with TComBobox.Create(StatusBar1)do
  begin
    Parent:=StatusBar1;
    width:=StatusBar1.Width;
    height:=StatusBar1.Height;
    Text:='Test';
  end;
end;

Answer 3

把状态条的其中一个PANEL的属性改成psOwnerDraw
StatusDrawRect:TRect; 
ProgressBar:TProgressBar;
//以上定义成窗体变量在statusbar的ONDRAWPANEL中加上 StatusDrawRect:=Rect;//创建进度条
procedure TFrmExcel.createprogressbar;
begin
   if not Assigned(ProgressBar) then
      Progressbar:=TProgressBar.Create(Self);
   Repaint;
   with ProgressBar do
   begin
      Top:=StatusDrawRect.Top;
      Left:=StatusDrawRect.Left;
      Width:=StatusDrawRect.Right-StatusDrawRect.Left;
      Height:=StatusDrawRect.Bottom-StatusDrawRect.Top;
      Visible:=true;
      Parent := StatusBar;
   end;
end;
这样就在状态栏上有一个进度条
你可以参照这样的加其他VCL控件