Bonjour tout le monde ....

rien de plus simple mais je boude depuis plus d'une nuit !!!
voilà, je voudrais créer des organigrammes à la demande, pour cela j'utilise un PageControl dont les tabSheet sont créés à partir d'une table, puis pour chaque TabSheet je dois créer son propre organigramme; pour cela j'utilise TdxOrgChart de DEVEXPRESS, mais à l’exécution j'ai une violation d'accès que j'arrive pas à déceler. voici le code en question :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
begin
         DM.IBCTable_UNITE.First;
         while not(DM.IBCTable_UNITE.Eof) do
         begin
           with TRzTabSheet.Create(RzPageControl_ORG) do
           begin
             Name := 'Org_' + DM.IBCTable_UNITE.FieldByName('CODE_UNITE').AsString;
             Caption := DM.IBCTable_UNITE.FieldByName('NOM_UNITE').AsString;
             Align := alClient;
             PageControl := RzPageControl_ORG;
 
             DM.IBCTable_UNITE.Next;
             with _dxOrgChart.Create(Self) do // l'arrêt se produit à ce niveau avec une violation d'accès !
             begin
               Name := 'org_' +
                Trim(DM.IBCTable_UNITE.FieldByName('CODE_UNITE').AsString);
               Parent := PageControl;
               Align := alTop;
               TabOrder := 0;
               Visible := True;
             end;
           end
         end;
       end;
ça ne doit pas être très méchant mais ça m'échappe ....

Merci par avance.