DruckenMister WongFacebook

StringGrid eine Spalte hinzufügen
System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Untenstehende Prozedur fügt einem StringGrid eine Spalte hinzu. Im Parameter NewColumn wird angegeben an welcher Position die Spalte hinzugefügt werden soll. Die Spalte wird links neben der angegebenen Spalte eingefügt. Die Zelleninhalte der Spalten werden dabei verschoben.


procedure GridAddColumn(const Grid: TStringGrid; NewColumn: Integer);
Var
  I: Integer;
begin
  Grid.ColCount := Grid.ColCount+1;
  For I:= Grid.ColCount-1 downto NewColumn do
    Grid.Cols[I].Assign(Grid.Cols[I-1]);
  Grid.Cols[NewColumn-1].Text := '';
end;
 

Folgendes Beispiel fügt links neben der Spalte '1' eine Spalte hinzu:


procedure TForm1.Button1Click(Sender: TObject);
begin
  GridAddColumn(StringGrid1,1);
end;
 
Ähnliche Seiten: