Delphi Tlistview[2] 常用方法和技巧

Delphi Tlistview[2] 常用方法和技巧

引用CommCtrl单元

(1)赋值

with ListView1.Items.Add do begin
  Caption:=caption; //添加第一项
  SubItems.add(11); //
  SubItems.add(22);
  SubItems.add(33);
end;

with ListView1 do begin
  ListItem:=Items.Add;
  ListItem.Caption:='第一列';
  ListItem.SubItems.Add('第二列');
end;

(2)取值

Edit1.Text := Listview1.Items[i].Caption; //读第i行第1列
Edit2.Text := Listview1.Items[i].SubItems.strings[0]; //读第i行第2列
Edit3.Text := Listview1.Items[i].SubItems.strings[1]; //读第i行第3列
Listview1.Items.Item[i].Caption;// 取得某条数据标题
Listview1.Items.Item[i].SubItems.Strings[j];// 取得某条数据内容
Listview1.Items.Item[i].SubItems.CommaText;// 一条记录的全部内容,格式: "标题","内容1","内容2",....
Listview1.Items.Item[i].SubItems.Text;// 一条记录的全部内容,格式: 标题,内容,内容2....

(3)删除

Listview1.Items.Item[i].Delete; //删除一条数据 

(4)数据类型(长度)定义

i:=ListView1.Items.Count ;//数据条数
Listview1.Items.Item[i].Selected;  //该条数据选中否(MultiSelect决定单选复选)

(5) 清除数据

ListView1.Clear; //清除数据
ListView1.Items.Clear; //清除数据

(6)插入一列

DestItem := Listview1.Items.Insert(CurItem.Index );//在当前列前面插入一列
DestItem := Listview1.Items.Insert(CurItem.Index + 1);//在当前列后面插入一列

(7)删除一列

begin
  ListView1.Items.Delete(tItem.Index); //删除当前列
  ListView1.Items.Delete(tItem.Index + 1); //删除当前列后面一列,要先判断其存在
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);//下移

  

示例1:实现不同行颜色不一样

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin //OwnerDraw应该设置为False
  if Item.Index mod 2 = 0 then
    Sender.Canvas.Brush.Color := clSkyBlue
  else
    Sender.Canvas.Brush.Color := clWhite;
end;

示例2:实现单击列表标题进行排序

function CustomSortProc(Item1, Item2: TListItem; ColumnIndex: integer): integer; stdcall;
begin
  if ColumnIndex = 0 then
    Result := CompareText(Item1.Caption, Item2.Caption)
  else
    Result := CompareText(Item1.SubItems[ColumnIndex - 1], Item2.SubItems[ColumnIndex - 1])
end;

procedure TFrmMain.TypeLvColumnClick(Sender: TObject; Column: TListColumn);
begin
  TypeLv.CustomSort(@CustomSortProc, Column.Index);
end;:

示例3:判断当前单击的哪一行

begin
  GetCursorPos(p);
  p := lvList.ScreenToClient(p);
  CurItem := lvList.GetItemAt(p.X, p.Y);
  ARect:= CurItem.DisplayRect(drBounds);
end;

示例4:根据存入的Data找到指定的Item

curItem := lvRoomList.FindData(0, AData, True, False);:

示例5:在vsReport模式下第一列插入两个图标

SmallImages,StateImages分别关联一个TimageList对象,TimageList对象对象中存入所有要显示的图标,对与TlistView 的vsReport模式下的每一条记录TlistItem对象tItem,

可分别通过 tItem.ImageIndex 和 tItem.StateIndex 来控制显示TimageList对象中的哪个图标,

一般tItem.StateIndex显示的图标在前,tItem.ImageIndex显示的图标在后,

若要判断单击事件是鼠标单击哪个图标的,可通过GetCursorPos(p);获得鼠标坐标后判断横坐标即P.X判断。

 

 创建时间:2020.03.20  更新时间:

 

上一篇:微信小程序Minium自动化测试(二)


下一篇:listview findCaption