StringGrid滚动条始终可见

Question

我在Delphi中编程并且我希望有一个始终可见的垂直滚动条，即使行数为1（DefaultDrawing选项未激活，我使用Canvas绘制细胞）。

任何人都可以帮助我吗？

Answer 1

您可以插入TStringGrid并覆盖Resize方法，如下所示：

unit Unit1;

interface

uses
  Winapi.Windows, System.Classes, Vcl.Controls, Vcl.Forms, Vcl.Grids;

type
  TStringGrid = class(Vcl.Grids.TStringGrid)
  protected
    procedure Resize; override;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
  end;

implementation

{$R *.dfm}

{ TStringGrid }

procedure TStringGrid.Resize;
begin
  inherited Resize;
  ShowScrollBar(Handle, SB_VERT, True);
end;

end.

使用锚点设置的小测试在这里给出了很好的结果。