关于listview和数据库的问题

lwhyx5207 2006-12-12 12:08:56
我想用listview和adoquery显示数据库中文件路径的图标。
代码如下:
var
i:Integer;
TempColumn:TListColumn;
TempItem:TListItem;
H: HIcon;
IconInfo: TIconInfo;
AIcon:TIcon;
//DriveItem: TListItem;
y:integer;
s:string;
begin

//ListView1.ViewStyle:=vsReport;
for i:=0 to adoQuery3.FieldCount-1 do
begin
s:=adoquery3.Fields[i].AsString;
//adoquery3.SQL.add
H:= ExtractIcon(Self.Handle,pchar(s), 0);
if (H <> 0) and GetIconInfo(H,IconInfo) then
begin
AIcon:= TIcon.Create;
AIcon.Handle:= CreateIconIndirect(IconInfo);
y:=ImageList1.AddIcon(AIcon);//将该imagelist关联给一个listview,显示出来的图标,边上有个明显的黑圈。
AIcon.Free;
end;
TempColumn:=self.ListView1.Columns.Add;
TempColumn.Caption:=adoQuery3.Fields[i].FieldName;
TempColumn.ImageIndex:=y;
end;
adoQuery3.First;
while not adoQuery3.Eof do
begin

TempItem:=self.ListView1.Items.Add;
TempItem.Caption:=adoQuery3.Fields[0].AsString;
tempitem.ImageIndex:=y;
for i:=1 to adoQuery3.FieldCount-1 do
begin
TempItem.SubItems.Add(adoQuery3.Fields[i].AsString);
end;
adoQuery3.Next;
end;
end;
文件名能显示出来,但是图标不能显示,请大侠们指点
...全文
146 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
lwhyx5207 2006-12-12
  • 打赏
  • 举报
回复
问题我已解决,谢谢各位!
lwhyx5207 2006-12-12
  • 打赏
  • 举报
回复
问题没有解决不能沉
lwhyx5207 2006-12-12
  • 打赏
  • 举报
回复
谢谢,一直在线等候
老冯 2006-12-12
  • 打赏
  • 举报
回复
测试完给你回复.请等
lwhyx5207 2006-12-12
  • 打赏
  • 举报
回复
直接测试文件名,没有问题。但是我要显示多个文件的图标
老冯 2006-12-12
  • 打赏
  • 举报
回复
测试过了,没有问题(我在测试的时候直接指定的文件名).所以没有给你回复
lwhyx5207 2006-12-12
  • 打赏
  • 举报
回复
哪位大侠帮帮我!

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧