将滚动条隐藏在 Delphi dbgrid 中（即使在调整大小时）

Question

对于我们的 dbgrid，我们希望滚动条始终隐藏。 由于 TDBGrid 没有“滚动条”属性，因此我们使用：

ShowScrollBar(DBGrid1.Handle, SB_VERT, False);
ShowScrollBar(DBGrid1.Handle, SB_HORZ, False);

但是，当我们调整窗口（以及包含 dbgrid 的面板）的大小时，对于 一秒钟滚动条出现，只有在调用后才再次隐藏 以上两种方法。

解决方案是在DrawColumnCell中调用这些方法，但这会导致闪烁 dbgrid 的值，即使 DoubleBuffered 设置为 true。

有什么办法可以永久隐藏滚动条吗？

提前致谢！

Answer 1

隐藏 TDBGrid 中的滚动条://docwiki.embarcadero.com/Libraries/en/Vcl.Grids.TCustomGrid.CreateParams">CreateParams 具有非常短的时间效果。有一个过程 UpdateScrollBar 导致滚动条可见。发生这种情况是因为滚动条的可见性是根据显示的数据进行控制的，因此每当数据更改时都会调用此过程。

由于每当需要更新滚动条时都会调用此过程，并且由于它是虚拟的，因此是时候覆盖它了。
以下代码示例使用插入类，因此所有 TDBGrid 组件在属于该单位的表格上将表现相同：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TDBGrid = class(DBGrids.TDBGrid)
  private
    procedure UpdateScrollBar; override;
  end;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TDBGrid.UpdateScrollBar;
begin
  // in this procedure the scroll bar is being shown or hidden
  // depending on data fetched; and since we never want to see 
  // it, do just nothing at all here
end;

end.

Answer 2

滚动条在 TDBGrid.UpdateScrollBar 中更新。不幸的是这个例程不是虚拟的（至少在 D7 中）。在该例程中，调用 SetScrollInfo，这是一个不发送任何可能被拦截的消息的 Windows 函数。那里没有运气。

剩下的唯一可能是重写每当控件更改大小时发送的消息的消息处理程序：

type
  TDBGrid = class(DBGrids.TDBGrid)
  private
    procedure WMWindowPosChanged(var Message: TWMWindowPosChanged);
      message WM_WINDOWPOSCHANGED;
  end;

procedure TDBGrid.WMWindowPosChanged(var Message: TWMWindowPosChanged);
begin
  inherited;
  Windows.ShowScrollBar(Handle, SB_VERT, False);
end;

尽管当数据更改或数据集处于活动状态时也会调用 UpdateScrollBar > 属性更改，这似乎在这里工作而不会闪烁。

Answer 3

也许重写CreateParams()方法并删除Params.Style形式的WS_HSCROLL和WS_VSCROLL位会有所不同。如果您不想编写自定义后代，您可以尝试使用 类助手 来完成此操作。

您还可以将 SetWindowLongPtr API 与GWL_STYLE 更改窗口的样式，但当由于某种原因重新创建网格窗口时，更改会丢失（因此它不如覆盖可靠） CreateParams）。