Hallo leute, hab da ein problem
ich will während mein programm läuft, das pagecontrol erweitern. hab hier im forum zwar was gefunden aber da kommt immer nen fehler.
das is meinn code
bestellung ist ein formular
Code:
anz_zeilen := DataSource1.DataSet.RecordCount;
for i := 1 to 10 do begin
SetLength(TabSheets, succ(i));
TabSheets[i] := TTabSheet.Create(Bestellung.JvPageControl1);
TabSheets[i].Parent := Bestellung.JvPageControl1;
TabSheets[i].Name := 'ArtSheet'+InttoStr(i);
TabSheets[i].Caption := DBGrid1.Fields[i].DisplayText;
TabSheets[i].Tag := i;
TabSheets[i].Visible := true;
TabSheets[i].PageControl := Bestellung.JvPageControl1;
end;
das problem jetzt ist, das er keine neuen tabsheets erstellt, kommt immer ein zugriffsfehler oder so.