listview里每一行怎么设置小图标？ICON

Question

listview的viewstyle属性为vsReport想让每一行前面加上一个小图标，怎么弄？

Answer 1

用TListView把TListView放在form上，设定align:=alclient;
添加几个ListItem,设定大图标，ListView.viewstyle:=vsicon
下面是代码
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ImgList, ComCtrls;type
  TForm1 = class(TForm)
    fghd: TListView;
    ImageList1: TImageList;
    procedure fghdDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure fghdDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure fghdMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.fghdDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  accept:=Source is TlistView
end;procedure TForm1.fghdDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  PosPoint:TPoint;
begin
  PosPoint.x:=x;
  PosPoint.y:=Y;
  (Source As TListView).Selected.SetPosition(PosPoint);
end;procedure TForm1.fghdMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=mbleft then
  begin
    with sender as TListview do
    begin
      if GetItemAt(x,y)<>nil then
        begindrag(false);
    end;
  end;
end;end.

Answer 2

smallImages属性连一个ImageList,设置好图片的Index

Answer 3

你好好看看我一楼给你的例子，那是模仿WINDOWS桌面的。。

Answer 4

UP   wudi_1982(︻┳═一) ( ) 信誉：96  2006-05-24 13:49:00  得分: 0  
 

Answer 5

我的情况是viewstyle属性为vsReport取某程序的图标做为listview每行的小图标,每个图标当然不一样乐

Answer 6

var
  Item: TListItem;
begin
  Item := ListView1.Items.Add;
  Item.Caption := 'test';
  Item.ImageIndex := 1; //这里手工指定其图标编号
  Item.SubItems.Add('test2');
end;