StringGrid: Breite der vertikalen Scrollbar ermitteln

[Helmi]

Zitat von DeddyH:

Naja, da kommt man ja noch drum herum.

verrätst du mir auch wie?
(habs ned so mit knacken )

[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;

[BadenPower]

Zitat von Helmi:

Zitat von DeddyH:

Naja, da kommt man ja noch drum herum.

verrätst du mir auch wie?

So würde es auch gehen:

Delphi-Quellcode:

implementation

{$R *.dfm}

type
   TStringGridAntiProtect = class(TStringGrid);

procedure TF_DevelopTest.Button1Click(Sender: TObject);
var
  DrawInfo: TGridDrawInfo;
begin
  TStringGridAntiProtect(StringGrid1).CalcDrawInfo(DrawInfo);
end;