var
ListItem: TListItem;
begin
ListItem := ListView1.Items.Add;
with ListItem do
begin
Caption := 'Column1';
SubItems.Add( 'Column2' );
SubItems.Add( 'Column3' );
end;
end;
ListItem: TListItem;
begin
ListItem := ListView1.Items.Add;
with ListItem do
begin
Caption := 'Column1';
SubItems.Add( 'Column2' );
SubItems.Add( 'Column3' );
end;
end;
解决方案 »
- delphi中窗体之间数据刷新问题!
- 在线急等?请教 个问题,我的C/S系统,现在数据库的名字和用户密码这个些还不知道,我要在客户端自定义设数据库联接,怎样把数据库名,用
- 帮忙看下一个数据插入的问题
- 图片的读取
- 第三方程序窗体上有4个文本框,如何区分哪个是哪个,根据句柄?根据控制ID?
- 也不知道怎么搞的.二级居然把pascal给删除了.也没有delphi
- 怎样在主建被删除或重复时,予以提示?????????/
- 发现一个好网址,大家可以去看看:http://zwb.hebeidaily.com.cn (非技术)
- 有本事你回答?
- 用ArcGIS打开dwg格式的CAD文件显示不是有效的地图,各位大神帮我看看代码错哪了呗?怎么改
- 奇怪的系统问题
- 如何让form运行时,覆盖整个屏幕?(包括任务栏)
1. 在 Delphi 界面下,选中一个 TListView 控件,按 F1,选 Propertys->Items->Examples->
Colunms, Caption, Items, SubItems, Add Example
有你想要的内容;
2. 多看帮助,帮助才是你的启蒙老师呀。
你这程序运行结果,只添加了Caption项,而SubItems没添加到或空白。请再指点一下!
谢谢你的F1。
aListItem:TListItem;
aListColumn:TListColumn;
begin
ListView1.Columns.Clear;
aListColumn:=ListView1.Columns.Add;
aListColumn.Caption:='Column1';
aListColumn.Width:=100;
aListColumn:=ListView1.Columns.Add;
aListColumn.Caption:='Column2';
aListColumn.Width:=100;
aListColumn:=ListView1.Columns.Add;
aListColumn.Caption:='Column3';
aListColumn.Width:=100;
aListItem:=ListView1.Items.Add;
aListItem.Caption:='Item1';
aListItem.SubItems.Add('Item1.1');
aListItem.SubItems.Add('Item1.2'); 恐怕写得罗索了些,不过我想应该写的比较明白。