怎么样做这样的状态栏

Question

怎么样做这样的状态栏，上有图标，显示当前的操作人员身份，显示当前操作的内容，请帮写写代码，先谢谢了

Answer 1

可以用Panel控件得到!
首先先在窗体中放置一个Panel1,将其Align属性设为alBottom;
然后在Panel1上再放置一个Panel2,将其Align属性设为alLeft;
然后在Panel1上再放置一个Panel3,将其Align属性设为alClient;
然后在Panel2上放置一个Image1控件将其Align属性设为alClient;
然后在Panel3上放置一个StatusBar1控件;
然后把所有Panel的AutoSize属性设为true;
最后把Panel控件的BevelOuter属性设为bvNone;
在程序中输入以下代码:
StatusBar1.Panels.Items.Text = '操作员身份';
Image1.Picture.LoadFromFile(PictureFilename);
到此状态栏设计结束.

Answer 2

写代码吧~
状态栏设置 StatusBar1: TStatusBar;Panel[i]的style为psOwnerDraw,然后在其上画上图标

Answer 3

代码如下：
在StatusBar的OnDrawPanel事件中调用下面的函数（需要放置Bitmap的Panel要
设为OwnerDraw)
procedure TfrmMain.DisplayAppMessage;
var
  ARect: TRect;
begin
  with stbSepc do
  begin
    ARect.Left := ClientRect.Left + Panels[0].Width + 10;
    ARect.Top := 2;
    ARect.Bottom := 20;
    ARect.Right := ARect.Left + Panels[1].Width - 10;
    Canvas.FillRect(ARect);    imglstSepc.Draw(Canvas, ARect.Left, ARect.Top, 6);
  end;
end;
那样可以在StatusBar上放置各种东西，如位图、ProgressBar等。

Answer 4

XXX.PARENT:=STATUSBAR;
自己放上去就是，位置用代码调整，还有就是设置 PANELS[I]。STYLE：=psOwnerDraw；
画！！！！！！！

Answer 5

想简单的，就去下载dxBar控件

Answer 6

KAO，有那么复杂吗，这种小问题还用得着第三方控件？？！！procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  if Panel.Index = 0 then
  begin
  //自己选一个需要画图标的Panel，需要选上
//   Panel.Style:=psOwnerDraw;    ImageList1.Draw(StatusBar.Canvas, Rect.Left, Rect.Top, 0);
    StatusBar.Canvas.TextOut(Rect.Left + ImageList1.Width + 1,
      Rect.Top, Panel.Text);
  end;
end;