1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| procedure TfmMain.RzPageControl_GEXPLOITEPageChange(Sender: TObject);
var
ATabSheet: TRzTabSheet;
//...
//...
while not(DM.IBCTable_UNITE.Eof) do
begin
//with TRzTabSheet.Create(RzPageControl_ORG) do
ATabSheet := TRzTabSheet.Create(RzPageControl_ORG);
with ATabSheet do
begin
Name := 'Org_' + DM.IBCTable_UNITE.FieldByName('CODE_UNITE').AsString;
Caption := DM.IBCTable_UNITE.FieldByName('NOM_UNITE').AsString;
Align := alClient;
PageControl := RzPageControl_ORG;
//Org_BUILD(??????, // que dois-je mettre ici ?
Org_BUILD(ATabSheet,
DM.IBCTable_UNITE.FieldByName('CODE_UNITE').AsString);
DM.IBCTable_UNITE.Next;
end
//... |
Partager