在Delphi中是否有THeaderControl的用途

Question

我一直在为我的网站LearnDelphi.tv制作使用delphi组件的视频.我想要覆盖THeaderControl,但找不到它的任何用途 - 现在不需要这个组件 - 超过其他组件,如TListView(使用报告视图样式)或者是否有一些使用它的方法我忽略了？

编辑:我在THeaderControl上为我的一个商业视频录制了一段,但我决定免费发布这个小节(​​6小时内20分钟).在YouTube上观看.感谢所有贡献的人.

Answer 1

通常:THeaderControl可以用作表格数据的标题.当然,通常会使用列表视图.但是对于每列中不同组件的异乎寻常的布局,通过使用列表视图或类似方法不容易创建,或者对于每列甚至完全不同的布局,标题控件可能是有用的.它只需在需要的地方提供更大的灵活性.比较它TPageControl提供更多的灵活性TTabControl.

关于特定的利基案例:例如,我使用标题控件作为计划网格组件的一部分.标题控件通过数据源获取标题,标题部分与列和滚动条同步.实际上,这需要一些代码,但不超过实现不同事件设计时的时间:

  TPlanGridHeader = class(TCustomHeaderControl)
  private
    FSectionWidth: Integer;
    procedure SetSectionWidth(Value: Integer);
    procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
  protected
    function CreateSection: THeaderSection; override;
    procedure SectionResize(Section: THeaderSection); override;
    procedure SectionTrack(Section: THeaderSection; Width: Integer;
      State: TSectionTrackState); override;
    property SectionWidth: Integer read FSectionWidth write SetSectionWidth;
  public
    procedure AddSection(const AText, AHint: String);
    constructor Create(AOwner: TComponent); override;
  end;