TStringgrid - Spalte ausblenden

[_frank_]

gut, dann ich mit den unsichtbaren Daten...(welche nicht sichtbar sein sollen)

objects erzeugt keine spalte sonder hängt ein beliebiges Objekt an eine bestehende Zelle an

mal eine einfache Klasse (ggf. noch constructor/destructor hinzufügen)+initialisierung und freigabe (ungetestet)

ich weise nur der ersten Spalte ein Object zu...kannst das aber auch ausbauen

Delphi-Quellcode:

type
  TMyObject = class
    FInt:integer;
    FStr:string;
  public
    property int:integer read FInt write FInt;
    property Str:string read FStr write FStr;
  end;


procedure TForm1.FormCreate(Sender:TObject);
var mo:TMyObject;
    i:integer;
begin
  //die größe des Grids festlegen
  Stringgrid1.ColCount:=5;
  Stringgrid1.RowCount:=5;
  for i:=0 to pred(stringgrid1.rowcount) do
  begin
    mo:=TMyObject.create;
    mo.int:=i;
    mo.Str:='evtl. Backuptext';
    Stringgrid1.Objects[0,i]:=mo
  end;
end;

procedure TForm1.FormDestroy(Sender:TObject);
var i:integer;
begin
  for i:=0 to pred(stringgrid1.rowcount) do
  begin
    //diesmal mit softcast ;)
    if assigned(Stringgrid1.Objects[i]) then
      (Stringgrid1.Objects[0,i] as TMyObject).free;
  end;
end;

HTH Frank