unit Unit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ComCtrls; type TForm1 = class(TForm) ListView1: TListView; Button1: TButton; Button2: TButton; CheckBox1: TCheckBox; CheckBox2: TCheckBox; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var i:Integer; column:TListColumn; begin for i := 0 to 5 do begin column := ListView1.Columns.Add; column.Caption := Format('Col %d',[i]); end; ListView1.Align := alTop; ListView1.ViewStyle := vsReport; ListView1.GridLines := True; {非默认} ListView1.ShowColumnHeaders := True; {默认} CheckBox1.Caption := 'GridLines'; CheckBox2.Caption := 'ShowColumnHeaders'; CheckBox1.Checked := True; CheckBox2.Checked := True; Button1.Caption := '添加'; Button2.Caption := '清空'; end; procedure TForm1.Button1Click(Sender: TObject); var item:TListItem; i:Integer; begin item := ListView1.Items.Add; //添加一行 item.Caption := 'Item ' + IntToStr(item.Index); for i := 0 to ListView1.Columns.Count - 1 do item.SubItems.Add(Format('%d%d',[item.Index,i])); end; procedure TForm1.Button2Click(Sender: TObject); begin ListView1.Items.Clear; end; procedure TForm1.CheckBox1Click(Sender: TObject); begin ListView1.GridLines:=CheckBox1.Checked; end; procedure TForm1.CheckBox2Click(Sender: TObject); begin ListView1.ShowColumnHeaders:=CheckBox2.Checked; end; end.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。