?? 動態(tài)實現(xiàn)listview控件.txt
字號:
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//定義數(shù)組
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 //取到數(shù)組的上限數(shù)
begin
listitem:=items.Add;
listitem.Caption:=names[I][0];
listitem.SubItems.Add(names[I][1]);
end;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -