delphi - 如何自定义 TListView 的行高？

Question

在 Delphi 11 Alexandria 的 Windows 10 中的 32 位 VCL 应用程序中，我使用TListViewwhere ViewStyle = vsReport.

如何自定义 a 的行高，既是什么TListView时候，OwnerDraw又是True什么时候False？

我尝试了这种方法：

type
  TListView = class(ComCtrls.TListView)
  private
    procedure CNMeasureItem(var Message: TWMMeasureItem); message CN_MEASUREITEM;
  end;

...

procedure TListView.CNMeasureItem(var Message: TWMMeasureItem);
begin
  inherited;
  Message.MeasureItemStruct.itemHeight := 32;
end;

但是，这仅在OwnerDraw = True. 没有其他解决方案吗？