动态实现listview控件.txt

是一部详细介绍了DELPHI的经典著作

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;//注意:此处必须手动添加ComCtrls

type
  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const//定义数组
names:array[0..5,0..1] of shortstring=(
 ('rubble','barney'),
 ('michael','johnson'),
 ('bunny','bugs'),
 ('silver','hiho'),
 ('simpson','bart'),
 ('Squirrel','rockey')
);
var
  i:integer;
  newcolumn:Tlistcolumn;
  listitem:Tlistitem;
  listview:Tlistview;
begin
//在uses单元中加入ComCtrls就可以使用实例化过程了
    listview:=Tlistview.Create(self);
    with listview do
    begin
      parent:=self;
      Align:=alclient;
      ViewStyle:=vsreport;
      newcolumn:=columns.Add;   //添加一个新列
      newcolumn.Caption:='last';//命名为:"last"
      newcolumn:=columns.Add;
      newcolumn.Caption:='first';
      for i:=0 to High(names) do   //取到数组的上限数
      begin
        listitem:=items.Add;
        listitem.Caption:=names[I][0];
        listitem.SubItems.Add(names[I][1]);
      end;
    end;

end;

end.