当listview的ViewStyle为vsReport,GridLines为true时,怎么在第一列中画上一个图标? 当listview的ViewStyle为vsReport,GridLines为true时,怎么在第一列中画上一个图标? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 参考 \Borland\Delphi5\Demos\Virtual Listview 很简单,listview.smallimage := ImageList1;ListItem: TListItem;ListItem := listview.Items.Add;listitem.ImageIndex :=1;listitem.caption :=''; 收到你的短信在第一列加图标procedure TForm1.Button1Click(Sender: TObject);var myColumn: TListColumn; myicon : Ticon;begin myicon := Ticon.Create; myicon.LoadFromFile('d:\a.ico'); ImageList1.AddIcon(myicon) ; listview1.SmallImages := ImageList1; myColumn := ListView1.Columns.Items[0]; mycolumn.ImageIndex := 0;end;在第一行加图标procedure TForm1.Button2Click(Sender: TObject);var myitem: TListitem; myicon : Ticon;begin myicon := Ticon.Create; myicon.LoadFromFile('d:\a.ico'); ImageList1.AddIcon(myicon) ; listview1.SmallImages := ImageList1; myitem := ListView1.items.Item[0]; myitem.ImageIndex := 0;end; 如何在SQL中添加,读取,修改图片 如何实现本地软件如何实现远程自动更新. 高分求助:有没有文本阅读控件? 升星了,散分祝贺,同时发布我最近常见问题的答案,路过进来看看 如何取得年份和月份? 如何更改控件? 问一个有点难读取文件中数据的问题,60分奉上! 如何反查拼音?谢谢,Up有分。 ***************简单的TreeView问题***********,给20分。 用自己写的函数调用dll,总是编译不通过,如何解决(再调用自己函数时) 关于数据的批更新问题--各位帮帮我呀! 在delphi中如何设置字符间的间距
listview.smallimage := ImageList1;
ListItem: TListItem;ListItem := listview.Items.Add;
listitem.ImageIndex :=1;
listitem.caption :='';
在第一列加图标
procedure TForm1.Button1Click(Sender: TObject);
var
myColumn: TListColumn;
myicon : Ticon;
begin
myicon := Ticon.Create;
myicon.LoadFromFile('d:\a.ico');
ImageList1.AddIcon(myicon) ;
listview1.SmallImages := ImageList1;
myColumn := ListView1.Columns.Items[0];
mycolumn.ImageIndex := 0;
end;在第一行加图标
procedure TForm1.Button2Click(Sender: TObject);
var
myitem: TListitem;
myicon : Ticon;
begin
myicon := Ticon.Create;
myicon.LoadFromFile('d:\a.ico');
ImageList1.AddIcon(myicon) ;
listview1.SmallImages := ImageList1;
myitem := ListView1.items.Item[0];
myitem.ImageIndex := 0;
end;