在我的TreeView中有两个节点,
第一个结点我想用ImageList1的图标,
第二个结点我想用ImageList2的图标,
请问我应该怎么做。
第一个结点我想用ImageList1的图标,
第二个结点我想用ImageList2的图标,
请问我应该怎么做。
解决方案 »
- DBNavigator1具體怎么用啊??有些刪除怎么用呢?
- TAdoquery和TDBGridEh控件操作数据库的疑问,请大侠指点!
- 用tidtcpserver向客户端发送数据,如何知道客户端是否收到?
- 开发组件刷新问题,高手请进!!!!!!!!!!
- 请问怎样获得Dll里Export函数的参数信息?我说的是自己写程序获得,谢谢
- ado控件怎样连接excel文档
- TreeView 和指针的问题
- BDE连接ACCESS做的程序可否快速的改成ADO的,因为分发BDE太复杂了!
- 纺织、轻纺、棉纺ERP系统,纺织企业,计件工资
- 怎么在一个程序中调用另一个可执行文件?
- ******在ScrollBox里动态创建Panel怎么让Panel的个数到一定数量后自动另起一行,在创建一行,第二行满了后在创建第3行,以此类推。。。
- c/s数据库开发的问题.
begin
ImageIndex :=1;
Text := '第一个结点';
end;
with treeView1.ITems.add do
begin
ImageIndex :=2;
Text := '第二个结点';
end;
我那个ImageList是用函数取系统中的图标的啊。合并不了。
可以将图标导入到相应的Imagelist 中
ImageList1.AddImages(ImageList2);
uses
ShellAPI;function GetSystemImageList(mImageList: TImageList): Boolean;
{ 返回系统图标到图形列表中是否成功 }
var
vHandle: THandle;
vSHFileInfo: TSHFileInfo;
begin
FillChar(vSHFileInfo, SizeOf(vSHFileInfo), 0);
vHandle := SHGetFileInfo('', 0, vSHFileInfo, SizeOf(vSHFileInfo),
SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
Result := vHandle <> 0;
mImageList.Handle := vHandle;
mImageList.ShareImages := True;
end; { GetSystemImageList }function GetIconIndex(mPath: string): Integer;
{ 返回文件或路径所对应的图标序号 }
var
vSHFileInfo: TSHFileInfo;
begin
FillChar(vSHFileInfo, SizeOf(vSHFileInfo), 0);
SHGetFileInfo(PChar(mPath), 0, vSHFileInfo, SizeOf(vSHFileInfo),
SHGFI_SYSICONINDEX);
Result := vSHFileInfo.iIcon;
end; { GetIconIndex }procedure TForm1.FormCreate(Sender: TObject);
begin
GetSystemImageList(ImageList1);
FSystemCount := ImageList1.Count;
ImageList1.AddImages(ImageList2);
end;