社区
Delphi
帖子详情
TListView 如何显示 SubItems 内容?
kingisw
2003-08-19 08:22:20
TListView 如何显示 SubItems 内容?
...全文
53
4
打赏
收藏
TListView 如何显示 SubItems 内容?
TListView 如何显示 SubItems 内容?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
kingisw
2003-08-19
打赏
举报
回复
恩,好,其实我已经发现了,谢谢
zxp2005
2003-08-19
打赏
举报
回复
定义出它的列就可以了。
如:
var
tmpColumn: TListColumn;
tmpItem: TListItem;
procedure TestAddListview(aList: TListView);
begin
aList.Clear;
tmpColumn := aList.Columns.Add;
tmpColumn.Caption := '名称';
tmpColumn := aList.Columns.Add;
tmpColumn.Caption := '性别';
tmpColumn := aList.Columns.Add;
tmpColumn.Caption := '年龄';
tmpItem := aList.Items.Add;
tmpItem.Caption := 'lxp';
tmpItem.SubItems.add('nam');
tmpItem.SubItems.Add('24');
end;
将ViewStyle属性设为vsReport。
kingisw
2003-08-19
打赏
举报
回复
不行
AustinLei
2003-08-19
打赏
举报
回复
将ViewStyle属性设为vsReport。
Delphi在T
ListView
中
显示
数据库.rar
Delphi在T
ListView
中
显示
数据库,
ListView
控件的简单用法,在日常的编程开发中,这个比较常用 。 self.
ListView
1.ViewStyle:=vsReport; for i:=0 to Query1.FieldCount-1 do begin TempColumn:=self.
ListView
1.Columns.Add; TempColumn.Caption:=Query1.Fields[i].FieldName; end; Query1.First; while not Query1.Eof do begin
BCB
Listview
取值,与赋值
Listview
取值,与赋值 (1)赋值 with
ListView
1.It
ems
.Add do begin Caption:=caption; //添加第一项
Su
bIt
ems
.add(aaaaa); //添加后面数据
Su
bIt
ems
.add(1234);
Su
bIt
ems
.add(1234); end; //一定要使用WITH结构. (2)取值
LISTVIEW
可编辑控件
参考网上资源类改写成为
LISTVIEW
控件,可设置多项属性 本着资源共享的原则上传,希望广大网友可以完善代码 lvwEdit1.AddColumnHeaders index, Key, Text, Width, Alignment '添加
LISTVIEW
表头 lvwEdit1.AddListIt
ems
index, Key, Text '添加
LISTVIEW
的ITEM数据 lvwEdit1.Add
Su
bIt
ems
(index) = Text '设置
LISTVIEW
的
Su
bIt
ems
数据 lvwEdit1.AltBackGround = boolen '表格背景是否需要分行分颜色
显示
,需要添加数据后设置 lvwEdit1.AltBackGroundColor = OLE_COLOR '表格背景是否需要分行分颜色的颜色 lvwEdit1.ClearColumnHeaders '清空表头 lvwEdit1.ClearListIt
ems
'清空数据 lvwEdit1.FormatString(Col) = "0.0000" '设置COL列的数据格式 lvwEdit1.GridLines = boolen '设置是否
显示
表格线 ItemCells = lvwEdit1.ItemCells(Row, Col) '返回row行,col列的数据 lvwEdit1.ItemColor(Row, Col) = OLE_COLOR '设置row行,col列的字符颜色
Su
m = lvwEdit1.
Su
m '设置total(COL)后返回COL列的总和 lvwEdit1.Total(Col) = "Col1 * Col2" '设置COL列为那两个单元格的合计,字符串中COL1与COL2为列号,中间为运算符,所有由一个空格分开。
listview
基本用法
Delphi
ListView
基本用法大全(转)默认分类 2009-09-29 09:27:56 阅读138 评论0 字号:大中小 订阅 Delphi高级编程 Delphi文章 WEB开发 Delphi控件 Delphi
ListView
基本用法大全 作者:seeker 日期:2009-04-19 //增加项或列(字段)
ListView
1.Clear;
ListView
1.Columns.Clear;
ListView
1.Columns.Add;
ListView
1.Columns.Add;
ListView
1.Columns.Add;
ListView
1.Columns.It
ems
[0].Caption:='id';
ListView
1.Columns.It
ems
[1].Caption:='type';
ListView
1.Columns.It
ems
[2].Caption:='title';
ListView
1.Columns.It
ems
[2].Width:=300;
Listview
1.ViewStyle:=vsreport;
Listview
1.GridLines:=true; //注:此处代码也可以直接在可视化编辑器中完成, 也可写成以下这样 begin with
listview
1 do begin Columns.Add; Columns.Add; Columns.Add; ViewStyle:=vsreport; GridLines:=true; columns.it
ems
[0].caption:='进程名'; columns.it
ems
[1].caption:='进程ID'; columns.it
ems
[2].caption:='进程文件路径'; Columns.It
ems
[0].Width:=100; Columns.It
ems
[1].Width:=100; Columns.It
ems
[2].Width:=150; end end; //增加记录 with
listview
1.it
ems
.add do begin caption:='1212';
su
bit
ems
.add('hh1');
su
bit
ems
.add('hh2'); end; //删除
listview
1.it
ems
.delete(0); //从数据库表里读取数据写入
Listview
var Titem:Tlistitem; //此处一定要预定义临时记录存储变量. begin
ListView
1.It
ems
.Clear; with adoquery1 do begin close; sql.Clear; sql.Add('select spmc,jg,sl from kcxs'); Open;
ListView
1.It
ems
.Clear; while not eof do begin Titem:=
ListView
1.It
ems
.add; Titem.Caption:=FieldByName('spmc').Value; Titem.
Su
bIt
ems
.Add(FieldByName('sl').Value); Titem.
Su
bIt
ems
.Add(FieldByName('jg').Value); next; end; //删除
ListView
1.DeleteSelected; //如何取得
ListView
中选中行的某一列的值 procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage(
ListView
1.Selected.
Su
bIt
ems
.Strings[1]); //返回选中行第三列中的值 end; showMessage(
listView
1.Selected.Caption); //返回选中行第一列的值. 第1列的值: -->>>
ListView
1.Selected.Caption 第i列的值(i>1):-->>>
ListView
1.Selected.
Su
bIt
ems
.Strings[i]
ListView
1.It
ems
.Item[1].
Su
bIt
ems
.GetText); //取得
listview
某行某列的值 Edit2.Text :=
listview
1.It
ems
[i].
Su
bIt
ems
.strings[0]; //读第i行第2列 返回选中行所有子列值.是以回车符分开的,你还要从中剥离出来你要的子列的值。 showMessage(
ListView
1.Selected.
Su
bIt
ems
.GetText);
ListView
简单排序的实现
ListView
排序 怎样实现单击一下按升序,再单击一下按降序。 function CustomSortProc(Item1, Item2: TListItem; ColumnIndex: integer): integer; stdcall; begin if ColumnIndex = 0 then Re
su
lt := CompareText(Item1.Caption,Item2.Caption) else Re
su
lt := CompareText(Item1.
Su
bIt
ems
[ColumnIndex-1],Item2.
Su
bIt
ems
[ColumnIndex-1]) end; procedure TFrmSrvrMain.
ListView
1ColumnClick(Sender: TObject; Column: TListColumn); begin
ListView
1.CustomSort(@CustomSortProc,Column.Index); end; =============================================================== //增加 i :=
ListView
1.It
ems
.Count; with
ListView
1 do begin ListItem:=It
ems
.Add; ListItem.Caption:= IntToStr(i); ListItem.
Su
bIt
ems
.Add('第 '+IntToStr(i)+' 行'); ListItem.
Su
bIt
ems
.Add('第三列
内容
'); end; //按标题删除 for i:=
ListView
1.It
ems
.Count-1 downto 0 Do if
ListView
1.It
ems
[i].Caption = Edit1.Text then begin
ListView
1.It
ems
.Item[i].Delete(); //删除当前选中行 end; //选中一行 if
ListView
1.Selected <> nil then Edit1.Text :=
ListView
1.Selected.Caption; //
listview
1.It
ems
[
Listview
1.It
ems
.Count -1].Selected := True; //
listview
1.It
ems
[
Listview
1.It
ems
.Count -1].MakeVisible(True); procedure TForm1.Button2Click(Sender: TObject); // 选择第一条 begin
listview
1.SetFocus;
listview
1.It
ems
[0].Selected := True; end; procedure TForm1.Button1Click(Sender: TObject); // 选择最后一条 begin
listview
1.SetFocus;
listview
1.It
ems
[
Listview
1.It
ems
.Count -1].Selected := True; end; //这是个通用的过程 procedure
ListView
ItemMoveUpDown(lv : T
ListView
; Item : TListItem; MoveUp, SetFocus : Boolean); var DestItem : TListItem; begin if (Item = nil) or ((Item.Index - 1 < 0) and MoveUp) or ((Item.Index + 1 >= lv.It
ems
.Count) and (not MoveUp)) then Exit; lv.It
ems
.BeginUpdate; try if MoveUp then DestItem := lv.It
ems
.Insert(Item.Index - 1) else DestItem := lv.It
ems
.Insert(Item.Index + 2); DestItem.Assign(Item); lv.Selected := DestItem; Item.Free; finally lv.It
ems
.EndUpdate; end; if SetFocus then lv.SetFocus; DestItem.MakeVisible(False); end; //此为调用过程,可以任意指定要移动的Item,下面是当前(Selected)Item
ListView
ItemMoveUpDown(
ListView
1,
ListView
1.Selected, True, True);//上移
ListView
ItemMoveUpDown(
ListView
1,
ListView
1.Selected, False, True);//下移 T
ListView
组件使用方法 引用CommCtrl单元 procedure TForm1.Button1Click(Sender: TObject); begin
ListView
_DeleteColumn(My
ListView
.Handle, i);//i是要删除的列的序号,从0开始 end; 用
LISTVIEW
显示
表中的信息: procedure viewchange(listv:t
listview
;table:tcustomadodataset;var i:integer); begin t
listview
(listv).It
ems
.BeginUpdate; {listv:
listview
名} try t
listview
(listv).It
ems
.Clear; with table do {table or query名} begin active:=true; first; while not eof do begin listitem:=t
listview
(listv).It
ems
.add; listitem.Caption:=trim(table.fields[i].asstring); // listitem.ImageIndex:=8; next; end; end; finally t
listview
(listv).It
ems
.EndUpdate; end; end;
ListView
使用中的一些要点。以下以一个两列的
ListView
为例。 →增加一行: with
ListView
1 do begin ListItem:=It
ems
.Add; ListItem.Caption:='第一列
内容
'; ListItem.
Su
bIt
ems
.Add('第二列
内容
'); end; →清空
ListView
1:
ListView
1.It
ems
.Clear; →得到当前被选中行的行的行号以及删除当前行: For i:=0 to
ListView
1.It
ems
.Count-1 Do If
ListView
1.It
ems
[i].Selected then //i=
ListView
1.Selected.index begin
ListView
1.It
ems
.Delete(i); //删除当前选中行 end; 当然,
ListView
有OnSelectItem事件,可以判断选择了哪行,用个全局变量把它赋值出来。 →读某行某列的操作: Edit1.Text :=
listview
1.It
ems
[i].Caption; //读第i行第1列 Edit2.Text :=
listview
1.It
ems
[i].
Su
bIt
ems
.strings[0]; //读第i行第2列 Edit3.Text :=
listview
1.It
ems
[i].
Su
bIt
ems
.strings[1]; //读第i行第3列 以次类推,可以用循环读出整列。 →将焦点上移一行: For i:=0 to
ListView
1.It
ems
.Count-1 Do If (
ListView
1.It
ems
[i].Selected) and (i>0) then begin
ListView
1.SetFocus;
ListView
1.It
ems
.Item[i-1].Selected := True; end; 不过在Delphi6中,
ListView
多了一个ItemIndex属性,所以只要
ListView
1.SetFocus;
ListView
1.ItemIndex:=3; 就能设定焦点了。 Delphi的
listview
能实现交替颜色么? procedure TForm1.
ListView
1CustomDrawItem( Sender: TCustom
ListView
; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); var i: integer; begin i:= (Sender as T
ListView
).It
ems
.IndexOf(Item); if odd(i) then sender.Canvas.Brush.Color:= $02E0F0D7 else sender.Canvas.Brush.Color:= $02F0EED7; Sender.Canvas.FillRect(Item.DisplayRect(drIcon)); end; 要想随时更改
ListView
中某一行的字体颜色,要在
ListView
的 OnCustomDrawItem 的事件中书写相关的代码。例如 我想更改选中的某行字体的颜色,则需要在事件中写入下的代码: if item.Index = strtoint(edit1.Text) then //该条件是用于判断是否符合更改字体颜色的行的条件。 Sender.Canvas.Font.Color := clred;
Delphi中用T
ListView
显示
数据库数据
首先创建一个新的项目,然后向窗体上添加一个TQuery组件和一个T
ListView
组件. 设置TQuery组件的DatabaseName属性设置为DBDEMOS,SQL属性设置为select * from country。然后添加程序初始化代码如下: with adoquery1 do begin close; ADOConnection1:=TADOConnection
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章