请教TabControl的images 的imageindex问题 你好!请问一下TabControl的images 的imageindex.TabControl的每页都是动态创建的.它的images是imagelist了.但是动态创建每一页图标我应该怎么改变呢?谢谢了. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 自己画??? 貌似偶没看到有什么方法改IMAGEINDEX 在TabControl的OnGetImageIndex 事件中处理Top7 楼yingshang(伤影)回复于 2004-04-25 21:54:38 得分 0 OnGetImageIndex 事件是可以!但我想控制某一个按钮的图标,而且每一个按钮图标的变换操作还很频繁,OnGetImageIndex恐怕无法达到!Top8 楼3jjj(G)回复于 2004-04-25 22:22:20 得分 100uses ...., CommCtrl; procedure TForm1.ChangeTabImageIndex(aTabIndex, aImageIndex: integer); var TCItem: TTCItem; begin TCItem.mask := TCIF_IMAGE; TCItem.iImage := aImageIndex; SendMessage(TabControl1.Handle, TCM_SETITEM, aTabIndex, Longint(@TCItem)); end;挖坟去挖到了应该有用的 UniDAC怎么在运行时创建一个空白数据库? 和大家讨论一个问题 关于 在DLL 中使用ADOQUERY 请教如何拓展对话框 打开一个 Form时如何向该窗口传递一个参数? ado 发什么疯了????? 如何擦除多边形 ? 关于对浏览器进行修改问题 请教如何写入文本? delphi 2010 首拼函数不能用 QuickRep的打印能否实现所见即所得? listbox value 的问题 每日一蛋。。。
Top7 楼yingshang(伤影)回复于 2004-04-25 21:54:38 得分 0 OnGetImageIndex 事件是可以!但我想控制某一个按钮的图标,而且每一个按钮图标的变换操作还很频繁,OnGetImageIndex恐怕无法达到!
Top8 楼3jjj(G)回复于 2004-04-25 22:22:20 得分 100uses
...., CommCtrl;
procedure TForm1.ChangeTabImageIndex(aTabIndex, aImageIndex: integer);
var
TCItem: TTCItem;
begin
TCItem.mask := TCIF_IMAGE;
TCItem.iImage := aImageIndex;
SendMessage(TabControl1.Handle, TCM_SETITEM, aTabIndex, Longint(@TCItem));
end;
挖坟去挖到了应该有用的