首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

关于Combobox前加载图标的一些疑问,该如何处理

2012-02-04 
关于Combobox前加载图标的一些疑问我用下代码实现了在ComboBox前加载图标,但有两个地方还没搞懂1,为什么选

关于Combobox前加载图标的一些疑问
我用下代码实现了在ComboBox前加载图标,但有两个地方还没搞懂

1,   为什么选择框那里有个矩形框围着,要怎样才能去掉   ?
2,ImageList1里我只放了一个图标,但ComboBox里我Add了很多项,怎样让每项内容前面都显示图标
谢谢

procedure   TForm1.ComboBox1DrawItem(Control:   TWinControl;   Index:   Integer;
                  Rect:   TRect;   State:   TOwnerDrawState);
begin
    ComboBox1.Canvas.FrameRect(Rect);
          //在组合框中绘制图标
    ImageList1.Draw(ComboBox1.Canvas,Rect.Left,Rect.Top,Index,true);
        //在组合框中绘制文本
    ComboBox1.Canvas.TextOut(Rect.Left+20,Rect.Top,ComboBox1.Items.Strings[Index]);
end;

procedure   TForm1.FormCreate(Sender:   TObject);
begin
      Combobox1.ItemIndex   :=0;
end;

[解决办法]
ImageList1里我只放了一个图标,但ComboBox里我Add了很多项,怎样让每项内容前面都显示图标
===================================================================================

ImageList1.Draw(ComboBox1.Canvas,Rect.Left,Rect.Top,0,true);

热点排行