在我的TreeView中有两个节点,
第一个结点我想用ImageList1的图标,
第二个结点我想用ImageList2的图标,
请问我应该怎么做。
第一个结点我想用ImageList1的图标,
第二个结点我想用ImageList2的图标,
请问我应该怎么做。
解决方案 »
- 获取网页变量问题
- 紧急求救!!!
- 我是个新手,有很多不懂,谁可以帮我!
- TdxfLabel,TdxfPictureButton是哪个第三方控件里的类(在线等待.....)
- ADOTable.refresh的问题
- Tdbchart连接数据库字段的问题
- 怎样在有10万条记录以上的记录集中快速定位于某一条记录?
- 哪能找到Object Pascal和Pascal的技术规范(标准) csdn上有c++的技术规范(标准)
- 关于unicode编码
- table的问题?(紧急问题)
- ******在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;