StringGridのスクロールバーが常に表示されます

Question

私はDelphiでプログラミングしていますが、行数が1であっても常に表示される垂直スクロールバーを使用したいと思います（DefaultDrawingオプションはアクティブではありません。細胞）。

誰でも手伝ってもらえますか？

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. 

設定アンカーとのマイナーなテストはここで良い結果が得られます。