lazarus1.1：ListView用法

最新推荐文章于 2020-11-20 17:05:14 发布

老狼8848

最新推荐文章于 2020-11-20 17:05:14 发布

阅读量1.1k

点赞数

分类专栏： Lazarus 文章标签： lazarus listview

本文链接：https://blog.csdn.net/bq_cui/article/details/8715480

版权

Lazarus 专栏收录该内容

168 篇文章 21 订阅

订阅专栏

ListView数据填充：

procedure TForm1.FormActivate(Sender: TObject);
  Names: array[0..5, 0..3] of string = (
    ('Rubble', 'Barney', 'Rubble', 'Barney'),
    ('Michael', 'Johnson', 'Rubble', 'Barney'),
    ('Bunny', 'Bugs', 'Rubble', 'Barney'),
    ('Silver', 'HiHo', 'Rubble', 'Barney'),
    ('Simpson', 'Bart', 'Rubble', 'Barney'),
    ('Squirrel', 'Rocky', 'Rubble', 'Barney')
    );


var
  I : integer;
  NewColumn: TListColumn;
  ListItem: TListItem;

begin

  with ListView1 do
  begin
    //Parent := Self;
    Align := alClient;

    ViewStyle := vsReport;

    NewColumn := Columns.Add;
    NewColumn.Caption := '用户名';
    NewColumn := Columns.Add;
    NewColumn.Caption := '密码';
    NewColumn := Columns.Add;
    NewColumn.Caption := '单位';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Email';
    NewColumn := Columns.Add;
    NewColumn.Caption := '地址码';
    NewColumn := Columns.Add;
    NewColumn.Caption := '启用';

    for I := Low(Names) to High(Names) do
    begin
      ListItem := Items.Add;
      ListItem.Caption := Names[I][0];
      ListItem.SubItems.Add(Names[I][1]);
      ListItem.SubItems.Add(Names[I][2]);
      ListItem.SubItems.Add(Names[I][3]);
    end;

  end;

end;

listview条目值得获取：

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if not Selected then Exit;

  sUName := Item.Caption;
  sPAWD := Item.SubItems[0];
  sDanwei := Item.SubItems[1];
  sEmail := Item.SubItems[2];
  sDZM := Item.SubItems[3];
  sEnable := Item.SubItems[4];
  sClassName := Item.SubItems[5];


  memo1.Lines.Add(sUName + '-' + sDanwei);
end;