Delphi7迁10.2 Tokyo：自定义ListView组件vsReport视图无数据及标题

从你的迁移场景来看，这个问题基本是Delphi版本间TListView控件的行为差异，加上自定义组件针对vsReport模式的初始化、数据绑定逻辑没适配新版本导致的。我来拆解具体排查方向和解决步骤：

1. 先解决列标题的可见性问题 #

Delphi 10.2中TListColumn的默认Width可能为0（和Delphi 7的默认行为不同），如果你的自定义组件创建列时没显式设置宽度，列标题直接会被隐藏。

检查组件里初始化列的代码，确保每列都设置了合理宽度：

procedure TCustomMyListView.SetupColumnsFromDataSet;
var
  Col: TListColumn;
  Field: TField;
begin
  ListView.Columns.Clear;
  for Field in DataSet.Fields do
  begin
    Col := ListView.Columns.Add;
    Col.Caption := Field.DisplayLabel;
    Col.Width := 120; // 必须显式设置宽度，vsReport模式下才会显示
    // 也可以根据字段类型动态调整，比如字符串字段设150，数字字段设80
  end;
end;

另外要确认ListView的ShowColumnHeaders属性是True——有时候组件初始化代码可能意外把这个属性关掉了。

2. 修正vsReport模式下的数据填充逻辑 #

vsReport模式的TListView数据结构和其他视图不一样：

• 第一列内容存在TListItem.Caption中
• 后续列内容需要添加到TListItem.SubItems集合里

如果你的组件在vsIcon/vsList模式下是直接用Caption显示所有数据，切换到vsReport时自然会没有内容。修改数据填充代码：

procedure TCustomMyListView.LoadDataFromDataSet;
var
  Item: TListItem;
  I: Integer;
begin
  ListView.Items.Clear;
  if not DataSet.Active then
    DataSet.Open;
  DataSet.First;
  while not DataSet.Eof do
  begin
    Item := ListView.Items.Add;
    // 第一列用Caption承载
    Item.Caption := DataSet.Fields[0].AsString;
    // 后续列逐个添加到SubItems
    for I := 1 to DataSet.FieldCount - 1 do
      Item.SubItems.Add(DataSet.Fields[I].AsString);
    DataSet.Next;
  end;
end;

3. 确保ViewStyle切换时触发重新初始化 #

很多自定义组件只在设计时或初始化阶段加载数据，但切换ViewStyle到vsReport时，没有重新触发列创建和数据加载。给组件添加ViewStyle变化的处理逻辑：

procedure TCustomMyListView.SetViewStyle(const Value: TViewStyle);
begin
  inherited SetViewStyle(Value);
  // 切换到vsReport模式时，重新初始化列和数据
  if Value = vsReport then
  begin
    if Assigned(DataSet) then
    begin
      SetupColumnsFromDataSet;
      LoadDataFromDataSet;
    end;
  end;
end;

4. 排查自定义绘制的兼容性问题 #

如果你的组件开启了OwnerDraw属性，自定义绘制逻辑可能在Delphi 10.2中失效：

• 检查OnDrawColumnHeader和OnDrawItem事件的实现，确保在vsReport模式下正确绘制标题和数据
• 可以先临时把OwnerDraw设为False测试，如果能正常显示，问题就出在自定义绘制代码上，需要适配新版本的绘制参数

5. 验证原生控件的基础功能 #

先抛开组件的自动绑定逻辑，手动在测试窗体中创建原生TListView，设置ViewStyle=vsReport并添加列和数据：

// 测试代码
procedure TForm1.Button1Click(Sender: TObject);
var
  Col: TListColumn;
  Item: TListItem;
begin
  ListView1.ViewStyle := vsReport;
  // 添加列
  Col := ListView1.Columns.Add;
  Col.Caption := '姓名';
  Col.Width := 100;
  Col := ListView1.Columns.Add;
  Col.Caption := '年龄';
  Col.Width := 80;
  // 添加数据
  Item := ListView1.Items.Add;
  Item.Caption := '张三';
  Item.SubItems.Add('25');
end;

如果这段代码能正常显示列标题和数据，说明问题肯定出在你的自定义组件逻辑上，而非Delphi版本本身的控件问题。

内容的提问来源于stack exchange，提问作者DelphiLearner