技术笔记
Tlistitem添加一行字段元素
 moons   2020-08-21 14:31:10   134
专栏分类: delphi
    procedure Tfrmshoucang.btnaddClick(Sender: TObject);
    var
      Titem: TListItem;
    begin
      Titem := lv1.Items.add;
      Titem.Caption := IntToStr(cbblevel.ItemIndex);
      Titem.SubItems.Add(IntToStr(cbbitem.ItemIndex));
      Titem.SubItems.Add(cbblevel.Text);
      Titem.SubItems.Add(cbbitem.Text);
      Titem.SubItems.Add(edttitle.Text);
      Titem.SubItems.Add(edturl.Text);
      Titem.SubItems.Add(edtuser.Text);
      Titem.SubItems.Add(edtpass.Text);
    end;
Copyright © mos360.cn By Moons Soft Studio 百度统计