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;

[ConnorMcLeod]

Müßte auch so gehen (rein ausm Kopf):

Delphi-Quellcode:

type
  TMyDemoGrid = class(TStringGrid)
  end;

...

var
  FgrdDemo: TMyDemoGrid;

...

procedure MachWas;
var
  DrawInfo: TGridDrawInfo;
begin
  FgrdDemo.CalcDrawInfo(DrawInfo);

[DeddyH]

Japp, solange "nur" protected (ohne strict).

[Sir Rufo]

Also ich habe es gerade getestet (XE7) und TStringGrid.ClientWidth ändert sich, wenn die Scrollbar ins Spiel kommt.

Delphi-Quellcode:

type
  TForm1 = class( TForm )
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click( Sender: TObject );
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click( Sender: TObject );
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  Label1.Caption := StringGrid1.ClientWidth.ToString;
end;

Allerdings muss man aufpassen, wenn man innerhalb eines StringGrid-Events auf diese Eigenschaft zugreifen möchte. Diese wird nämlich quasi zum Abschluss der gesamten Aktualisierung gesetzt und ist somit erst nach Abarbeitung der ganzen Events verfügbar.

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

[Helmi]

Zitat von Sir Rufo:

Delphi-Quellcode:

procedure TForm1.Button1Click( Sender: TObject );
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  Label1.Caption := StringGrid1.ClientWidth.ToString;
end;

In diesem Beispiel dürfte sich ClientWidth gar nicht verändern, da du nur Zeilen hinzufügst, dadurch die Höhe veränderst, nicht aber die Breite

[Sir Rufo]

Zitat von Helmi:

Zitat von Sir Rufo:

Delphi-Quellcode:

procedure TForm1.Button1Click( Sender: TObject );
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  Label1.Caption := StringGrid1.ClientWidth.ToString;
end;

In diesem Beispiel dürfte sich ClientWidth gar nicht verändern, da du nur Zeilen hinzufügst, dadurch die Höhe veränderst, nicht aber die Breite

Falsch, irgendwann können nicht mehr alle Zeilen angezeigt werden und dann kommt die Scrollbar und die Änderung der Breite

[Helmi]

Zitat von Sir Rufo:

Zitat von Helmi:

Zitat von Sir Rufo:

Delphi-Quellcode:

procedure TForm1.Button1Click( Sender: TObject );
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  Label1.Caption := StringGrid1.ClientWidth.ToString;
end;

In diesem Beispiel dürfte sich ClientWidth gar nicht verändern, da du nur Zeilen hinzufügst, dadurch die Höhe veränderst, nicht aber die Breite

Falsch, irgendwann können nicht mehr alle Zeilen angezeigt werden und dann kommt die Scrollbar und die Änderung der Breite

Ich geb mich geschlagen...