【控件功能】我来做练习-第45课-Delphi ListView example

Delphi ListView example

提示：Delphi ListView 的例子

核心源码

procedure TForm1.Button1Click(Sender: TObject);
begin
ListView1.ViewStyle := vsReport;
ListView1.Clear;
ListView1.Columns.Clear;
ListView1.Columns.Add.Caption := ‘Column title’;
ListView1.Columns[0].Width := 100;
ListView1.Items.BeginUpdate;
ListView1.Items.Add.Caption := ‘Hello World’;
ListView1.Items.Add.Caption := ‘Lorem Ipsum’;
ListView1.Items.Add.Caption := ‘Third Item’;
ListView1.Items.EndUpdate;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
MyItem: TListItem;
begin
ListView1.Clear;
ListView1.Columns.Clear;
ListView1.ViewStyle := vsReport;