Geht das ?(Ich habe es selbst nicht getestet)
Delphi-Quellcode:
Procedure Test;
var
Grid:tStringGrid;
aRow, aCol:integer;
Begin
Grid := tStringGrid.Create(Application.Mainform);
Grid.parent := Application.Mainform;
Grid.Align := AlClient;
Grid.Rowcount := 50;
Grid.Colcount := 50;
Grid.Visible := true;
For aRow := 0 to Grid.Rowcount-1 do
For aCol := 0 to Grid.Colcount-1 do
Grid.Cells[aCol,aRow] := inttoStr(aCol)+','+inttostr(aRow);
Application.Processmessages;
end;