Delphi ListView的用法-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝29
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:177回复:0

  Delphi ListView的用法

楼主#
更多 发布于:2016-06-06 19:06

//增加

i := ListView1.Items.Count;

with ListView1 do

begin

ListItem:=Items.Add;

ListItem.Caption:= IntToStr(i);

ListItem.SubItems.Add('第 '+IntToStr(i)+' 行');

ListItem.SubItems.Add('第三列内容');

end;

//按

标题删去

for i:=ListView1.Items.Count-1 downto 0 Do

if ListView1.Items.Caption = Edit1.Text then

begin

ListView1.Items.Item.Delete();  //删去现在选中行

end;

//选中一行

if ListView1.Selected <> nil then

Edit1.Text := ListView1.Selected.Caption;

怎样让win7更流通20个窍门让你玩转Windows 7

拍照师7个拍照经历 协助你打破拍照瓶颈参数不能说明全部 音频设备参数解析

//   listview1.Items[Listview1.Items.Count -1].Selected := True;

//   listview1.Items[Listview1.Items.Count -1].MakeVisible(True);

procedure TForm1.Button2Click(Sender: TObject); //

取舍第一条

begin

listview1.SetFocus;

listview1.Items[0].Selected := True;

end;

procedure TForm1.Button1Click(Sender: TObject);  //

取舍终究一条

begin

listview1.SetFocus;

listview1.Items[Listview1.Items.Count -1].Selected := True;

end;

//这是个通用的进程

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;

菜鸟必备镜头之大光圈定焦镜拍照窍门拍照菜鸟常犯的5个过错及怎么避免

5个微距镜头的多见误解揭秘简略易学的长期曝光拍照窍门

//此为调用进程,

能够恣意指定要移动的Item,下面是现在(Selected)Item

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;

//增加

i := ListView1.Items.Count;

with ListView1 do

begin

ListItem:=Items.Add;

ListItem.Caption:= IntToStr(i);

ListItem.SubItems.Add('第 '+IntToStr(i)+' 行');

ListItem.SubItems.Add('第三列内容');

end;

//按

标题删去

for i:=ListView1.Items.Count-1 downto 0 Do

if ListView1.Items.Caption = Edit1.Text then

begin

ListView1.Items.Item.Delete();  //删去现在选中行

end;

//选中一行

if ListView1.Selected <> nil then

Edit1.Text := ListView1.Selected.Caption;

//   listview1.Items[Listview1.Items.Count -1].Selected := True;

//   listview1.Items[Listview1.Items.Count -1].MakeVisible(True);

procedure TForm1.Button2Click(Sender: TObject); //

取舍第一条

begin

listview1.SetFocus;

listview1.Items[0].Selected := True;

end;

procedure TForm1.Button1Click(Sender: TObject);  //

取舍终究一条

begin

listview1.SetFocus;

listview1.Items[Listview1.Items.Count -1].Selected := True;

end;

//这是个通用的进程

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;

//此为调用进程,

能够恣意指定要移动的Item,下面是现在(Selected)Item

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;

优质IT资源分享社区为你提供此文。

本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。

Delphi教程视频

优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客