文件名称：listview 控件技巧
文件大小：657B
文件格式：PAS
更新时间：2009-03-15 02:52:39
另类其它 控件 源码 资源
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) ListView1: TListView; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{ *.dfm}procedure TForm1.Button1Click(Sender: TObject);vari:integer;beginlistview1.Canvas.Lock ;for i:=0 to 15000 dobeginlistview1.Items.Add;listview1.Items.Item[i].Caption:=‘adb‘;end;listview1.Canvas.Unlock ;end;end.