请问如何在combobox中添加图标,设计成一个图标选择框??求救!! Delphi 6里面就有TComboBoxEx控件,可以实现你想要的功能 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我希望是在delphi5中实现,谢谢你了!!有没有人知道呀? 将ComboxBox1的Style设为csOwnerDrawFixed,然后在OnDrawItem中画,procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);begin with ComboBox1 do begin Canvas.FillRect(Rect); ImageList1.Draw(Canvas, Rect.Left, Rect.Top + 2, Index); Canvas.TextOut(Rect.Left + 20, Rect.Top + 2, Items[Index]); end;end; 可以的,在窗体上放一个ImageList,放几个16*16的位图进去,图像个数和ComboBox的项目个数要一样,还要将ComboBox的Style属性设为csOwnerDrawFixed。 不对,必须的将style设置成 csownerdrawvariable 才行的 在问一下,如何可以作成象QQ中的我的头像一样那样大的图片,使combobox的大小和图片的大小一样,这是如何实现的!!!?谢谢了 delphi写数独输入一个数字,然后自动填写其他的。 Delphi TIdUdpServer,如何打开一空闲端口 怎样判断是不是顶层节点,我用的是TreeView控件 高手救我,在线给分!!! 怎样得到一个目录下所有的文件个数?并且遍历它? 轻松20分.... 导数据到excel中去怎幺老是死机? 问题 创建表的问题,搞不懂了! 我这个时间比较的问题已经问过了,但我还是没有弄明白。请高手赐教 用DELPHI设计意见反馈功能??? 用Delphi如何取得CPU号.......
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with ComboBox1 do
begin
Canvas.FillRect(Rect);
ImageList1.Draw(Canvas, Rect.Left, Rect.Top + 2, Index);
Canvas.TextOut(Rect.Left + 20, Rect.Top + 2, Items[Index]);
end;
end;