hi..
mit diesem code füge ich eine weitere Column in meinem Stringgrid (bzw stringgrids..es sind 2) ein zur laufzeit:
Delphi-Quellcode:
procedure TForm2.neuermitarbeiterClick(Sender: TObject);
var
Column: Integer;
NewColumn: Integer;
begin
Grid.ColCount := Grid.ColCount + 1;
proviGrid.ColCount := proviGrid.ColCount + 1;
for Column := Grid.ColCount - 1 downto NewColumn do
Grid.Cols[Column].Assign(Grid.Cols[Column - 1]);
for Column := proviGrid.ColCount - 1 downto NewColumn do
proviGrid.Cols[Column].Assign(proviGrid.Cols[Column - 1]);
Grid.Cols[NewColumn - 1].Text := '';
proviGrid.Cols[NewColumn - 1].Text := '';
das funktioniert auch, nur möchte ich diese gleich mit text füllen und die letzten beiden zeilen des obrigen codes funktionieren nicht...wenn ich die ' ' fülle bleiben die neu erzeugten Columns leer leider. hat jemand nen tip was ich falsch mache?
danke