1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

var 
 i,anzahl_tabs : integer; 
 kostenstelle : string; 
 mypagecontrol : TspSkinpagecontrol; 
 newSheet:TTabSheet; 
 newGrid : TspSkinDBGrid; 
begin
 with q_kostenstellen do
 begin
   close;
   sql.Clear;
   sql.Add('select * from Kostenstellen where Kostenstelle <> :kst and IS_WEK = 1 order by Kostenstelle');
   Parameters.ParamByName('kst').Value := '';
   open;
   anzahl_tabs := RecordCount;
   kostenstelle := FieldByName('Kostenstelle').AsString;
 end;
 try
 mypagecontrol:=TspSkinpagecontrol.Create(SDIAppForm);
 mypagecontrol.Parent := SDIAppForm;
 mypagecontrol.Name := 'pc_kostenstellen';
 mypagecontrol.Align := alClient;

 for i := 1 to anzahl_tabs do
 begin
   with mypagecontrol do
   begin
    NewSheet:=TTabSheet.Create(mypagecontrol);
    newSheet.PageControl:=mypagecontrol;
    newSheet.Caption:= q_kostenstellen.FieldByName('Kostenstelle').AsString + ';' + q_kostenstellen.FieldByName('Bezeichnung').AsString;
    newSheet.Name := 'Sheet' + q_kostenstellen.FieldByName('Kostenstelle').AsString;
    newSheet.parent := mypagecontrol;

    newGrid:= TspSkinDBGrid.Create(mypagecontrol);
    newGrid.parent := newsheet;
    newgrid.align := alClient;
    newgrid.ReadOnly := True;
    newgrid.Name := 'Grid' + q_kostenstellen.FieldByName('Kostenstelle').AsString;

    newgrid.DataSource := ds_Bestelldetail;
    newGrid.Columns.Add;
    newGrid.Columns[0].FieldName := 'Bereich';
    newGrid.Columns[0].Width:= 80;
    newGrid.Columns.Add;
    newGrid.Columns[1].FieldName := 'Artikelname';
    newGrid.Columns[1].Width:= 200;
    newGrid.Columns.Add;
    newGrid.Columns[2].FieldName := 'Artikelnummer';
    newGrid.Columns[2].Width:= 100;
    newGrid.Columns.Add;
    newGrid.Columns[3].FieldName := 'err_hersteller';
    newGrid.Columns[3].Width:= 300;
    newGrid.Columns[3].Title.caption := 'Hersteller';
    newGrid.Columns.Add;
    newGrid.Columns[4].FieldName := 'Auftragsnummer';
    newGrid.Columns[4].Width:= 120;
    newGrid.Columns.Add;
    newGrid.Columns[5].FieldName := 'Bestell_Datum';
    newGrid.Columns[5].Width:= 120;
    newGrid.Columns[5].Title.caption := 'Bestellung vom';

   end;
   q_kostenstellen.FindNext;
 end;
 finally
 end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TSDIAppForm.loesche_komponenten;
var
i :integer;
begin
while mypagecontrol.ComponentCount > 0 do
 begin
  mypagecontrol.Components[0].free;
 end;
 Application.ProcessMessages;
end;					

1:
2:

 while mypagecontrol.ComponentCount > 0 do 
  begin  mypagecontrol.Components[0].free;					

1:
2:

for i := 0 to PageControl.PageCount -1 do
 PageControl.Pages[i].Free;					

1:
2:

for i := PageControl.PageCount - 1 downto 0 do
  PageControlX.Pages[i].Free;