使用 TListView 控件(2)

本例效果图:

---

代码文件:

---

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;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure RadioButton3Click(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

  ListView1.Align := alLeft;

  Button1.Caption := '添加';

  Button2.Caption := '清空';

  RadioButton1.Caption := 'ViewStyle = vsIcon';

  RadioButton2.Caption := 'ViewStyle = vsList';

  RadioButton3.Caption := 'ViewStyle = vsReport';

  RadioButton1.Checked := True;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

  item: TListItem;

begin

  item := ListView1.Items.Add;

  item.Caption := 'Item' + IntToStr(ListView1.Items.Count);

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

  ListView1.Clear;

end;



procedure TForm1.RadioButton1Click(Sender: TObject);

begin

  ListView1.ViewStyle := vsIcon; {这是默认值}

end;



procedure TForm1.RadioButton2Click(Sender: TObject);

begin

  ListView1.ViewStyle := vsList;

end;



procedure TForm1.RadioButton3Click(Sender: TObject);

begin

  ListView1.ViewStyle := vsReport;

  if ListView1.Columns.Count = 0 then ListView1.Columns.Add.Caption := '标题';

end;



end.


 
   

窗体文件:

---

object Form1: TForm1

  Left = 0

  Top = 0

  Caption = 'Form1'

  ClientHeight = 150

  ClientWidth = 310

  Color = clBtnFace

  Font.Charset = DEFAULT_CHARSET

  Font.Color = clWindowText

  Font.Height = -11

  Font.Name = 'Tahoma'

  Font.Style = []

  OldCreateOrder = False

  OnCreate = FormCreate

  PixelsPerInch = 96

  TextHeight = 13

  object ListView1: TListView

    Left = 8

    Top = 8

    Width = 161

    Height = 121

    Columns = <>

    TabOrder = 0

  end

  object Button1: TButton

    Left = 199

    Top = 84

    Width = 75

    Height = 25

    Caption = 'Button1'

    TabOrder = 1

    OnClick = Button1Click

  end

  object Button2: TButton

    Left = 199

    Top = 115

    Width = 75

    Height = 25

    Caption = 'Button2'

    TabOrder = 2

    OnClick = Button2Click

  end

  object RadioButton1: TRadioButton

    Left = 175

    Top = 8

    Width = 127

    Height = 17

    Caption = 'RadioButton1'

    TabOrder = 3

    OnClick = RadioButton1Click

  end

  object RadioButton2: TRadioButton

    Left = 175

    Top = 31

    Width = 127

    Height = 17

    Caption = 'RadioButton2'

    TabOrder = 4

    OnClick = RadioButton2Click

  end

  object RadioButton3: TRadioButton

    Left = 175

    Top = 54

    Width = 127

    Height = 17

    Caption = 'RadioButton3'

    TabOrder = 5

    OnClick = RadioButton3Click

  end

end