listview组件使用问题！

Question

如果将LISTVIEW组件做成网格例表形式？
我怎么都试不成功！就像Excel表一样！

Answer 1

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

Answer 2

主要是这两个属性
listview1.ViewStyle:=vsreport;
listview1.GridLines:=true;

Answer 3

那位大哥能不能给个范例发到我邮箱，感激不尽！[email protected]

Answer 4

就是改这两个属性
listview1.ViewStyle:=vsreport;
listview1.GridLines:=true;
就可以了的...试看看..

Answer 5

listview1.ViewStyle:=vsreport;
listview1.GridLines:=true;
我知道可以，我的意思是何增加表头！如：姓名   年龄   爱好

Answer 6

表头:
  ListView.Columns.Add.Caption:= '姓名';

Answer 7

楼主改自己多研究下，不能直接问代码怎么写呀。
// 设置格式
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(' 玩');

Answer 8

logne大哥，我按你的方法能实现动态加入，但有个问题出来了，在添加内容的时候出现了姓名“张三”在第一行，年龄“24”却跑到第二行去了，怎么回事？