DBGrid Spaltengrößen fehlerhaft

[Thomas Horstmann]

Das ist ein Fehler in Delphi Seattle. Ich benutze "FormCreate" bzw. "FormClose" um die Breite zu laden/speichern.

Delphi-Quellcode:

procedure TWinDatabasesForm.FormCreate
( iSender : TObject ) ;
var
iRegistry : TRegistryIni ;
begin
{ Anlegen }
iRegistry := TRegistryIni.Create('Form\' + Name) ;
{ Spaltenbreite }
GridDatabases.ColWidths[0] := iRegistry.ReadInteger('GridDatabases','ColumnWidth1',GridDatabases.ColWidths[0]) ;
GridDatabases.ColWidths[1] := iRegistry.ReadInteger('GridDatabases','ColumnWidth2',GridDatabases.ColWidths[1]) ;
GridDatabases.ColWidths[2] := iRegistry.ReadInteger('GridDatabases','ColumnWidth3',GridDatabases.ColWidths[2]) ;
{ Löschen }
iRegistry.Free ;
end ;

...

procedure TWinDatabasesForm.FormClose
( iSender     : TObject      ;
  var iAction : TCloseAction ) ;
var
iRegistry : TRegistryIni ;
begin
{ Anlegen }
iRegistry := TRegistryIni.Create('Form\' + Name) ;
{ Spaltenbreite }
iRegistry.WriteInteger('GridDatabases','ColumnWidth1',GridDatabases.ColWidths[0]) ;
iRegistry.WriteInteger('GridDatabases','ColumnWidth2',GridDatabases.ColWidths[1]) ;
iRegistry.WriteInteger('GridDatabases','ColumnWidth3',GridDatabases.ColWidths[2]) ;
{ Löschen }
iRegistry.Free ;

{ Freigeben }
iAction := caFree ;
end ;