Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: TStringGrid: ColWidth[1]:=500 -> keine horizScrollBar

  Alt 16. Dez 2009, 15:13
Hallo,

die Scrollbar sollte eigentlich kommen.
Mache doch mal eine klitzekleines Minimal-Beipiel und hänge an den 1. Thread an.

Vorher vielleicht noch ein

Application.ProcessMessages

nach dem ColWidth machen.
Das sollte aber nicht die Lösung sein.

Bsp.
Neue Anwendung
Grid auf Form (mit Grid.Align alClient sieht schöner aus)
Und im FormCreatewie unten.

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    Grid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Grid1.Align:= alClient;
  Grid1.ColWidths[1]:= Grid1.Width*2;
end;

end.

Die Ursache bei dir könnte sein, dass du nicht mit Alignment arbeitest
und das Grid viel breiter ist als du denkst.


Heiko
Heiko
  Mit Zitat antworten Zitat