为什么80%的码农都做不了架构师？>>> 
本例效果图:
代码文件:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeTForm1 = 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);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
vari: Integer;column: TListColumn;
beginfor i := 0 to 5 dobegincolumn := 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);
varitem: TListItem;i: Integer;
beginitem := ListView1.Items.Add;item.Caption := 'Item ' + IntToStr(item.Index);for i := 0 to ListView1.Columns.Count - 1 doitem.SubItems.Add(Format('%d%d', [item.Index, i]));
end;procedure TForm1.Button2Click(Sender: TObject);
beginListView1.Items.Clear;
end;procedure TForm1.CheckBox1Click(Sender: TObject);
beginListView1.GridLines := CheckBox1.Checked;
end;procedure TForm1.CheckBox2Click(Sender: TObject);
beginListView1.ShowColumnHeaders := CheckBox2.Checked;
end;end.窗体文件:
object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 198ClientWidth = 322Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object ListView1: TListViewLeft = 8Top = 8Width = 185Height = 121Columns = <>TabOrder = 0endobject Button1: TButtonLeft = 232Top = 134Width = 75Height = 25Caption = 'Button1'TabOrder = 1OnClick = Button1Clickendobject Button2: TButtonLeft = 232Top = 165Width = 75Height = 25Caption = 'Button2'TabOrder = 2OnClick = Button2Clickendobject CheckBox1: TCheckBoxLeft = 16Top = 145Width = 97Height = 17Caption = 'CheckBox1'TabOrder = 3OnClick = CheckBox1Clickendobject CheckBox2: TCheckBoxLeft = 16Top = 169Width = 177Height = 17Caption = 'CheckBox2'TabOrder = 4OnClick = CheckBox2Clickend
end
