listview组件使用问题！
如果将LISTVIEW组件做成网格例表形式？
我怎么都试不成功！就像Excel表一样！
[解决办法]
object Form1: TForm1
Left = 192
Top = 107
Width = 870
Height = 640
Caption = 'Form1 '
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif '
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ListView1: TListView
Left = 112
Top = 96
Width = 250
Height = 150
Columns = <
item
Caption = 'sdfsdf '
end
item
Caption = 'sdfsdf '
end
item
Caption = 'sdf '
end
item
Caption = 'sdf '
end
item
Caption = 'sdf '
end>
FullDrag = True
GridLines = True
Items.Data = {
710000000400000000000000FFFFFFFFFFFFFFFF000000000000000009736466
73646673646600000000FFFFFFFFFFFFFFFF00000000000000000000000000FF
FFFFFFFFFFFFFF00000000000000000673646673646600000000FFFFFFFFFFFF
FFFF000000000000000006736466736466}
TabOrder = 0
ViewStyle = vsReport
end
end
[解决办法]
就是改这两个属性
listview1.ViewStyle:=vsreport;
listview1.GridLines:=true;
就可以了的...试看看..
[解决办法]
楼主改自己多研究下，不能直接问代码怎么写呀。
// 设置格式
listview1.ViewStyle:=vsreport;
listview1.GridLines:=true;
// 动态添加表头
Column := listview.Columns.add;
Column.Caption := '姓名 '
Column := listview.Columns.add;
Column.Caption := '年龄 '
Column := listview.Columns.add;
Column.Caption := '爱好 '
// 添加内容
Item := listview.Items.add;
Item.caption := '张三 ';
Item.subitems.add( '24 ');
Item.subitems.add( ' 玩 ');
