有没有能给Item附加数据的Listview？

Question

我想在Listview中为每条Item附加几条数据。我现在的做法是加上几个Max width=1的“不可见”栏，可以用户调整栏间距的话会不方便。请问有没有解决的方法（Delphi2009）。谢谢大家~

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;  TMyData = class
    dataName : string;
    vValue : integer;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  vLst : TListItem;
  myData : TMyData;
begin
  myData := TMyData.Create;
  myData.dataName := 'testok';
  myData.vValue := 10000;  vLst := ListView1.Items.Add;
  vLst.Caption := 'test';
  vLst.Data := myData;
  
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  showMessage( TMyData(listview1.Items[0].Data).dataName);
end;end.

Answer 2

参照1楼item有Data，属性，可以保存任何数据，你可以建立record来记录数据，或者自己的类，然后赋予Data 属性