哪个控件有这种效果？

Question

本帖最后由 IVC2009 于 2009-11-21 12:49:23 编辑

Answer 1

安装总出现错误，加了lib [DCC Fatal Error] EhLib140.dpk(59): F1026 File not found: 'DBSumLst.dcu'

Answer 2

谁说不能显示单元格呢?
在Formh添加一个TListView和一个按钮,然后添加以后代码,自己看效果:
procedure TForm1.Button1Click(Sender: TObject);
var
    lc: TListColumn;
    li: TListItem;
begin
    ListView1.Checkboxes := true;
    ListView1.ViewStyle := vsReport;
    ListView1.GridLines := true;
    ListView1.RowSelect := true;    // 添加列
    ListView1.Columns.Clear;    lc := ListView1.Columns.Add;
    lc.Caption := 'aaaa';    lc := ListView1.Columns.Add;
    lc.Caption := 'bbbb';    lc := ListView1.Columns.Add;
    lc.Caption := 'cccc';    lc := ListView1.Columns.Add;
    lc.Caption := 'dddd';    // 添加项目
    ListView1.Items.Clear;    li := ListView1.Items.Add;
    li.Caption := '1';
    li.SubItems.Add('2');
    li.SubItems.Add('3');
    li.SubItems.Add('4');    li := ListView1.Items.Add;
    li.Caption := '11';
    li.SubItems.Add('22');
    li.SubItems.Add('33');
    li.SubItems.Add('44');    li := ListView1.Items.Add;
    li.Caption := '111';
    li.SubItems.Add('222');
    li.SubItems.Add('333');
    li.SubItems.Add('444');    li := ListView1.Items.Add;
    li.Caption := '1111';
    li.SubItems.Add('2222');
    li.SubItems.Add('3333');
    li.SubItems.Add('4444');
end;