Delphi中TListView控件使用
要点:
1.代码备注的超级详细，如下:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) lv1: TListView; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure lv1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); procedure lv1ColumnClick(Sender: TObject; Column: TListColumn); procedure FormCreate(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); private public procedure 分组(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} {风格} procedure TForm1.Button1Click(Sender: TObject); begin lv1.Clear; //清空 lv1.Columns.Clear; //lv1.ViewStyle := lv1 {增加3项列表头} lv1.Columns.Add; lv1.Columns.Add; lv1.Columns.Add; lv1.Columns.Items[0].Caption:='时间'; lv1.Columns.Items[1].Caption:='地点'; lv1.Columns.Items[2].Caption:='人物'; lv1.Columns.Items[0].Width:=100; lv1.Columns.Items[1].Width:=100; lv1.Columns.Items[2].Width:=300; {设置属性} lv1.ViewStyle:=vsreport; //报表模式 lv1.GridLines:=true; //表格线 //lv1.RowSelect := True; //选中一整行 end; {} {插入数据方法1} procedure TForm1.Button2Click(Sender: TObject); begin with lv1.items.add do begin caption:='2013'; subitems.add('上海'); subitems.add('田攀'); end; end; {插入数据方法2} procedure TForm1.Button3Click(Sender: TObject); var Titem:Tlistitem;//存储临时记录. begin Titem := lv1.Items.add; Titem.Caption := '201314'; Titem.SubItems.Add('广州'); Titem.SubItems.Add('God'); end; {删除行} procedure TForm1.Button4Click(Sender: TObject); begin lv1.DeleteSelected; //删除选中行 lv1.Items.Item[2].Delete;//删除某一行 lv1.Items.Clear;//清除所有数据 end; {按标题内容删除} procedure TForm1.Button6Click(Sender: TObject); var I: Integer; begin for I := 0 to lv1.Items.Count - 1 do begin if lv1.Items[I].Caption = '田攀2013' then //如果标题为 '田攀2013' lv1.Items.Item[I].Delete();//删掉 end; end; {选择某行} procedure TForm1.Button7Click(Sender: TObject); begin lv1.SetFocus;//获取焦点 lv1.Items[lv1.Items.Count - 1].Selected := True;//选中 end; procedure TForm1.Button8Click(Sender: TObject); begin 分组(Sender); end; {分组效果} procedure TForm1.分组(Sender: TObject); begin with lv1 do begin AllocBy := 0; //设置总共的项数量，省去每次添加开辟内存空间 Checkboxes := False; //项左边出现复选框，vsList or vsReport有效 Color := clWindow; //背景颜色 ColumnClick := True; //列头能否点击 with Columns.Add do //增加列 begin Alignment := taLeftJustify; //左对齐 Caption := '田攀'; ImageIndex := -1; Width := 100; end; with Columns.Add do //增加列 begin Caption := '2013'; ImageIndex := -1; Width := 50; end; Ctl3D := True; DoubleBuffered := False; //双缓冲 Enabled := True; FlatScrollBars := False; //平滑滚动条 FullDrag := False; //允许拖动列头 GridLines := False; //表格线 GroupHeaderImages := nil; //分组头关联图像列表 with Groups.Add do //增加分组 begin BottomDescription := '说明文字'; ExtendedImage := -1; //关联 GroupHeaderImages图像列表，only on Windows Vista Footer := '页脚文本'; FooterAlign := taLeftJustify; //页脚文本对齐 GroupID := 0; //组ID号 Header := '页首文本'; HeaderAlign := taLeftJustify; State := [ //分组状态，一些状态只应用于VISTA系统 lgsNormal, //所有分组展开 lgsHidden, //分组隐藏 lgsCollapsed, //分组折叠 Windows Vista only. lgsNoHeader, //页首不可见 Windows Vista only. lgsCollapsible, //分组可折叠 Windows Vista only. lgsFocused, //分组有键盘焦点 Windows Vista only. lgsSelected, //分组被选择 Windows Vista only. lgsSubseted, //只有分组的一个子集显示出来 Windows Vista only. lgsSubSetLinkFocused //分组的子集有键盘焦点 Windows Vista only. ]; SubsetTitle := '子集标题'; Subtitle := '子标题'; TitleImage := -1; //关联 GroupHeaderImages图像列表，only on Windows Vista TopDescription := '顶部的说明文字'; end; with Groups.Add do begin GroupID := 1; Header := '分组标题'; end; GroupView := True; //打开或关闭分组视图 HideSelection := True; //失去焦点时，项不再保持被选择状态 HotTrack := False; //指定是否鼠标移过项进行高亮 HotTrackStyles := [ // htHandPoint, //手势 // htUnderlineCold, //非热点下划线 // htUnderlineHot //下划线热点 ]; HoverTime := -1; //鼠标在项上暂停时间，除非HotTrack为True with IconOptions do //确定如何排列图标，vsIcon or vsSmallIcons 有效 begin Arrangement := iaTop; //项在顶部从左到右对齐，iaLeft在左部从上到下对齐 AutoArrange := False; //图标自动重新排列 WrapText := True; //图标标题是否折行 end; with Items.Add do //增加项 begin Caption := '张三'; ImageIndex := -1; //关联 LargeImages or SmallImages图像列表 StateIndex := -1; //关联StateImages图像列表 GroupID := 0; //关联分组ID号 SubItems.Add('广州'); //添加第二列 end; with Items.Add do begin Caption := '李四'; GroupID := 1; SubItems.Add('上海'); end; LargeImages := nil; //大图标图像列表 MultiSelect := False; //多选 OwnerData := False; //指定列表视图控件是否是虚拟的 OwnerDraw := False; //自绘项 ParentColor := False; //继承父控件颜色 ReadOnly := False; //只读 RowSelect := False; //整行选择 ShowColumnHeaders := True; //显示列头，vsReport有效 ShowWorkAreas := False; //显示工作区，vsIcon or vsSmallIcon有效，不支持 OwnerData SmallImages := nil; //小图标图像列表 SortType := stNone; //确定列表项如何自动排序 StateImages := nil; //状态图像列表 ViewStyle := vsReport; //视图风格，vsIcon、vsSmallIcon、vsList、vsReport end; end; {初始化，TList分组} procedure TForm1.FormCreate(Sender: TObject); begin end; {显示和隐藏列表头} procedure TForm1.Button9Click(Sender: TObject); var IsShow : Boolean; begin IsShow := lv1.ShowColumnHeaders;//是否隐藏列表头 lv1.ShowColumnHeaders := not IsShow;//取反 end; {每2行交叉换颜色} procedure TForm1.lv1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin if Item.Index mod 2 = 0 then//如果序号是2的倍数 Sender.Canvas.Brush.Color :=clSkyBlue //蓝色 else Sender.Canvas.Brush.Color :=clWhite; //白色 end; {读取数据} procedure TForm1.Button5Click(Sender: TObject); begin ShowMessage(lv1.Items[2].Caption) ; //读取某条数据标题 ShowMessage(lv1.Items[2].SubItems.strings[1]) ;//读取第二行的第二子列（也就是第三列） ShowMessage(lv1.Items[2].SubItems.CommaText); //显示全部内容 end; {排列函数} function CustomSortProc(Item1, Item2: TListItem; ColumnIndex: integer): integer; stdcall; begin if ColumnIndex = 0 then //第0行 Result := CompareText(Item1.Caption,Item2.Caption) //返回 else Result := CompareText(Item1.SubItems[ColumnIndex-1],Item2.SubItems[ColumnIndex-1]); end; {点击每列头重新排列列表} procedure TForm1.lv1ColumnClick(Sender: TObject; Column: TListColumn); begin lv1.CustomSort(@CustomSortProc,Column.Index); //点击每行第一个排列 end; end.
