Hallo,
ich erstelle mir eine gewisse anzahl von stringgrids dynamisch.
Denen weise ich mit dem Befehl scrollbars := ssVertical einen Vertikalen Scrollbalken zu , den ich im Programm aber nicht sehe woran liegt das?
Hier der Code zur Erstellung
Delphi-Quellcode:
astringgrid[(i*2+j)] := TStringgrid.Create(atabsheet[j]);
with astringgrid[(i*2+j)] do
begin
parent := atabsheet[j];
top:=5;
width := 150;
defaultrowheight := 15;
scrollbars := ssvertical;
if j = 0 then
begin
rowcount := 2;
colcount := 4;
fixedrows := 1;
defaultcolwidth := 30;
colwidths[0] := 20 ;
cells[1,0]:= '1';
cells[2,0]:= '2';
cells[3,0]:= '3';
end
else
begin
colcount := 2;
fixedCols := 0;
defaultcolwidth := 50;
cells[0,0]:= 'Feld';
cells[1,0]:= 'Treffer';
afields := playerList.Player[i].fields;
rowcount := length(afields);
for k := 0 to high(afields) do
begin
cells[0,k+1] := inttostr(afields[k].field);
Cells[1,k+1] := inttostr(afields[k].anz);
end;//for
end;//else
end;//with stringgrid(2i+1)
Habe das Programm mal gepackt und angehängt falls ihr noch mal direkt reingucken wollt. Die Stringggrds werden in der
unit Game erzeugt in der Methode Form.show ziemlich weit am ende.