ListView在delphi中的常用用法
来源:互联网 发布:js点击div边框变颜色 编辑:程序博客网 时间:2024/06/01 12:51
本文版权归原作者所有
来源:http://blog.sina.com.cn/s/blog_9e2e840501013r78.html
ListView在delphi中的常用用法
//增加
//按标题删除
//选中一行
// 选择第一条
procedureTForm1.Button2Click(Sender: TObject);
begin
listview1.SetFocus;
listview1.Items[0].Selected :=True;
end;
// 选择最后一条
procedureTForm1.Button1Click(Sender: TObject);
begin
listview1.SetFocus;
listview1.Items[Listview1.Items.Count-1].Selected := True;
end;
//此为调用过程,可以任意指定要移动的Item,下面是当前(Selected)Item
procedureListViewItemMoveUpDown(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 thenlv.SetFocus;
DestItem.MakeVisible(False);
end;
ListViewItemMoveUpDown(ListView1,ListView1.Selected, True, True);//上移
ListViewItemMoveUpDown(ListView1,ListView1.Selected, False, True);//下移
TListView组件使用方法
引用CommCtrl单元
procedureTForm1.Button1Click(Sender: TObject);
begin
ListView_DeleteColumn(MyListView.Handle,i);//i是要删除的列的序号,从0开始
end;
用LISTVIEW显示表中的信息:
procedureviewchange(listv:tlistview;table:tcustomadodataset;vari:integer);
begin
tlistview(listv).Items.BeginUpdate;{listv:listview名}
try
tlistview(listv).Items.Clear;
with tabledo{tableorquery名}
begin
active:=true;
first;
whilenot eof do
begin
listitem:=tlistview(listv).Items.add;
i := ListView1.Items.Count;with ListView1 dobegin ListItem:=Items.Add; ListItem.Caption:=IntToStr(i); ListItem.SubItems.Add('第'+IntToStr(i)+' 行'); ListItem.SubItems.Add('第三列内容');end;
//按标题删除
for i:=ListView1.Items.Count-1 downto0 Doif ListView1.Items[i].Caption= Edit1.Text thenbeginListView1.Items.Item[i].Delete();//删除当前选中行
//选中一行
if ListView1.Selected <> nil thenEdit1.Text := ListView1.Selected.Caption;// listview1.Items[Listview1.Items.Count -1].Selected := True;// listview1.Items[Listview1.Items.Count -1].MakeVisible(True);
//
procedure
begin
end;
//
procedure
begin
end;
//此为调用过程,可以任意指定要移动的Item,下面是当前(Selected)Item
procedure
var
begin
end;
TListView组件使用方法
引用CommCtrl单元
procedure
begin
end;
用LISTVIEW显示表中的信息:
procedure