StringGrid: Breite der vertikalen Scrollbar ermitteln

[DeddyH]

Delphi-Quellcode:

type
  TStringGrid = class(Grids.TStringGrid)
  public
    procedure CalcDrawInfo(var DrawInfo: TGridDrawInfo);
  end;

  TFormDings = class(TForm)
    StringGrid1: TStringGrid;
    ...
  end;

...


procedure TStringGrid.CalcDrawInfo(var DrawInfo: TGridDrawInfo);
begin
  inherited;
end;