怎样把progressbar 放到 statusbar 中

Question

RT
statusbar.align:=albottom;
statusbar.Panels.Items[0].Text='Test    ';
statusbar.panels.items[0].width=100;
statusbar.Panels.Items[1].Text='Test    ';//将progressbar 放到这个地方
statusbar.panels.items[1].width=200;
statusbar.Panels.Items[2].Text='Test    ';
statusbar.panels.items[2].width=100;

Answer 1

很简单：
先在窗体上放一个Panel,
然后双击Statusbar1，添加Statusbar1.Panels[0]，将其Style改为psOwnerDraw
然后在FormCreate中写
  Panel1.Parent := StatusBar1;
  Panel1.Left := StatusBar1.left;
  Panel1.Top := 0;
你在Panel1上什么都可以放，包括Progressbar，button等等。

Answer 2

// 或者双击Statusbar1，添加Statusbar1.Panels[0]，将其Style改为psOwnerDraw
// StatusBar的OnDrawPanel事件procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  ProgressBar1.Parent := StatusBar1;
  ProgressBar1.Left := Rect.Left;
  ProgressBar1.Top := Rect.Top;
  Panel.Width := ProgressBar1.Width;
  ProgressBar1.Height := Rect.Bottom - Rect.Top;
end;

Answer 3

raize控件包中的RzStatusPane控件中可以带进度条RzProgressBar，实现起来应该比较简单！

Answer 4

好了，但是不好看，我想要flashFXP3.0的那样的状态条

Answer 5

真正有用的procedure TForm1.FormCreate(Sender: TObject);
var
  ProgressBarStyle: integer;
begin
  //enable status bar 2nd Panel custom drawing
  StatusBar1.Panels[1].Style := psOwnerDraw;  //place the progress bar into the status bar
  ProgressBar1.Parent := StatusBar1;  //remove progress bar border
  ProgressBarStyle := GetWindowLong(ProgressBar1.Handle,
                                    GWL_EXSTYLE);
  ProgressBarStyle := ProgressBarStyle 
                      - WS_EX_STATICEDGE;
  SetWindowLong(ProgressBar1.Handle, 
                GWL_EXSTYLE, 
                ProgressBarStyle);
end;
procedure TForm1.StatusBar1DrawPanel(
  StatusBar: TStatusBar;
  Panel: TStatusPanel;
  const Rect: TRect);
begin
  if Panel = StatusBar.Panels[1] then
  with ProgressBar1 do begin
    Top := Rect.Top;
    Left := Rect.Left;
    Width := Rect.Right - Rect.Left - 15;
    Height := Rect.Bottom - Rect.Top;
  end;
end;

Answer 6

OK...现在需要在Progressbar上填写文字及图标

Answer 7

OK...现在的问题是在statusbar上填入图标的时候无法写入文字,怎么回事？

Answer 8

http://www.soulan.com/kingron/tips/
Delphi编程技巧--> VCL.可视组件--〉状态栏和进度条--〉 状态栏允许放入其他控件

Answer 9

http://www.somade.com/是个很专业的技术社区,去那里找找吧,或许有你要的答案~