Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.774 Beiträge
 
Delphi 10.4 Sydney
 
#13

Re: Checkbox.Caption in Stringgrid

  Alt 13. Mär 2007, 19:06
Ach so, Deine Tabelle hat schon eine bestimmte Anzahl an Zeilen.

Delphi-Quellcode:
Zeile :=1; // hier die Startzeile eintragen
for i := 1 to <Anzahl Checkboxen) do
begin
    if (FindComponent( "CheckBox' + IntToStr( i)) as TCheckBox).Checked then
begin
if Zeile >= StringGrid1.RowCount -1 then
StringGrid1.RowCount:=StringGrid1.rowCount +1;
StringGrid1.Cells[1,Zeile]:=(FindComponent( "CheckBox
' + IntToStr( i)) as TCheckBox).caption;
        inc(Zeile);
      end;
end;
und zeile noch als Variable im Buttonklick vereinbaren.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat