RT 先散个分 再问个问题。

我也不知道这样合适不，就是想寻个delphi的大牛。
如果大家觉得水区讨论技术有碍瞻观 那么等俺结贴后麻烦疯哥再移走吧 呵呵。

话说楼主上班时要熟悉公司项目流程 是没有多少时间搞基础控件的学习的 而delphi的控件哪叫一个多！ 这些都只能下班后自己摸索 毕竟是基础的东西。所以碰到不少问题 磕磕绊绊的啊。

进入正题：
我的目的就是在一个窗口的下面添加一个状态栏 然后再这个状态栏里添加一个图标(bmp格式的)
效果如下：


这个是原来的程序效果 我照着它的流程来做了一个但是搞死都搞不出来那个小图标。
制作流程如下，大牛们看看有么不对的：
1.在Dev Express里点击tcxImageList 添加到窗体。

---

--

2.在ExpressBar里选择tdxStatusBar 添加到窗体。

--

--

--

--


555 希望有大牛能援手。

[ 本帖最后由 有容就大 于 2012-12-29 23:44 编辑 ]

不懂

不懂 too

我来接分合适不？

分给我就合适

接分接分

分哟

哈哈，楼主来对地方了。。。
貌似跟VB差不多

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin

  with StatusBar1.Canvas do
  begin
    //ush.Color := clRed;
    FillRect(Rect);
    //nt.Color := clYellow;
    ImageList1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,Panel.Index);
    //xtOut(Rect.left + 30, Rect.top + 2, 'Panel' + IntToStr(Panel.Index));
  end;

end;

DELPHI7没你的ide那么先进
他的statusbar控件尚不能和imagelist控件绑定
所以只能采用自绘方式来实现（其实delphi的自绘功能是能实现好多好用的功能的）
我这里只是测试了图标文件.ico  其他图形文件 没有测试