ListView在delphi中的常用用法

将武發表於 2020-12-12 12:27:00

<div>ListView在delphi中的常用用法</div>
<div>//增加 </div>
<div>
<div class="cnblogs_code">
<pre>i := ListView1.Items.Count;
with ListView1 do
begin
ListItem:=Items.Add;
ListItem.Caption:=IntToStr(i);
ListItem.SubItems.Add('第'+IntToStr(i)+' 行');
ListItem.SubItems.Add('第三列内容');
end;</pre>
</div>
//按标题删除 
<div class="cnblogs_code">
<pre>for i:=ListView1.Items.Count-1 downto 0 Do 
if ListView1.Items.Caption = Edit1.Text then 
begin 
ListView1.Items.Item.Delete(); //删除当前选中行 
end; </pre>
</div>
//选中一行 
<div class="cnblogs_code">
<pre>if ListView1.Selected <> nil then
Edit1.Text := ListView1.Selected.Caption;

// listview1.Items.Selected := True;
// listview1.Items.MakeVisible(True); </pre>
</div>
//选择第一条  procedure TForm1.Button2Click(Sender: TObject);  begin      listview1.SetFocus;      listview1.Items.Selected := True;  end;  //选择最后一条  procedure TForm1.Button1Click(Sender: TObject);  begin      listview1.SetFocus;      listview1.Items.Selected := True;  end;  //此为调用过程，可以任意指定要移动的Item，下面是当前(Selected)Item  procedure ListViewItemMoveUpDown(lv : TListView; Item : TListItem; MoveUp, SetFocus : Boolean);  var  DestItem : TListItem;  begin      if (Item = nil) or      ((Item.Index - 1 < 0) and MoveUp) or      ((Item.Index + 1 >= lv.Items.Count) and (not MoveUp))      then Exit;      lv.Items.BeginUpdate;      try         if MoveUp then             DestItem := lv.Items.Insert(Item.Index - 1)         else            DestItem := lv.Items.Insert(Item.Index + 2);         DestItem.Assign(Item);         lv.Selected := DestItem;          Item.Free;          finally          lv.Items.EndUpdate;      end;      if SetFocus then lv.SetFocus;      DestItem.MakeVisible(False);  end;  ListViewItemMoveUpDown(ListView1, ListView1.Selected, True, True);//上移  ListViewItemMoveUpDown(ListView1, ListView1.Selected, False, True);//下移  TListView组件使用方法  引用CommCtrl单元  procedure TForm1.Button1Click(Sender: TObject);  begin  ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号，从0开始  end;  用LISTVIEW显示表中的信息：  procedure viewchange(listv:tlistview;table:tcustomadodataset;var i:integer);  begin  tlistview(listv).Items.BeginUpdate; {listv:listview名}  try  tlistview(listv).Items.Clear;  with table do {table or query名}  begin  active:=true;  first;  while not eof do  begin  listitem:=tlistview(listv).Items.add;  listitem.Caption:=trim(table.fields.asstring);  // listitem.ImageIndex:=8;  next;  end;  end;  finally  tlistview(listv).Items.EndUpdate;  end;  end;  ListView使用中的一些要点。以下以一个两列的ListView为例。  →增加一行：  with ListView1 do  begin  ListItem:=Items.Add;  ListItem.Caption:='第一列内容';  ListItem.SubItems.Add('第二列内容');  end;  →清空ListView1：  ListView1.Items.Clear;  →得到当前被选中行的行的行号以及删除当前行：  For i:=0 to ListView1.Items.Count-1 Do  If ListView1.Items.Selected then //i=ListView1.Selected.index  begin  ListView1.Items.Delete(i); //删除当前选中行  end;  当然，ListView有OnSelectItem事件,可以判断选择了哪行,用个全局变量把它赋值出来。  →读某行某列的操作：  Edit1.Text := listview1.Items.Caption; //读第i行第1列  Edit2.Text := listview1.Items.SubItems.strings; //读第i行第2列  Edit3.Text := listview1.Items.SubItems.strings; //读第i行第3列  以次类推，可以用循环读出整列。  →将焦点上移一行：  For i:=0 to ListView1.Items.Count-1 Do  If (ListView1.Items.Selected) and (i>0) then  begin  ListView1.SetFocus;  ListView1.Items.Item.Selected := True;  end; 
<div>
<div>引用内容</div>
<div>
不过在Delphi7中，ListView多了一个ItemIndex属性，所以只要 ListView1.SetFocus; ListView1.ItemIndex:=3; 就能设定焦点了。
   delphi中ListView的某项某列的值必须先定义然后才能使用。比如你用ListView控件建立了一个表，严格说来这个表就好比一个二维数组。如果我们新建一行，只是第一行Caption有值，其它列为空，那也必须对后面的列执行Add('')，这相当于把空串赋给了后面的列，这样以后才能像操作二维数组一样直接访问任意行的任意列，否则的话访问caption后面的列时会报错。这相当于对于ListView中的每一个值（某项某列的值）都必须初始化。

</div>

</div>
</div>

</div>
<div id="MySignature" role="contentinfo">
好的代码像粥一样，都是用时间熬出来的 
来源：https://www.cnblogs.com/jijm123/p/14124261.html

頁: [1]

琼殿技术论坛's Archiver

ListView在delphi中的常用用法