Zitat von
Bruce86:
ok habe nun deinen rat befolgt! klappt wunderbar danke nur noch eine kleine frage wie schaffe ich es dann dass die erste zeile wenn ich nur eine habe fixed ist?
Wenn Du nur eine Zeile hast, hast Du keine fixed Zeile, das ist nun einmal so.
Dann mußt Du halt den Code zum befüllen des Grids entsprechend anpassen.
Zeile 0 ist dann die fixed Zeile
Zeile 1 ist leer, RowCount ist 2.
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 // das = Zeichen aus >= entfernt
StringGrid1.RowCount:=StringGrid1.rowCount +1;
StringGrid1.Cells[1,Zeile]:=(FindComponent( "CheckBox' + IntToStr( i))
as TCheckBox).caption;
inc(Zeile);
end;
end;
Dann sollte das so gehen.
Grüße
Klaus