Discussion :

[Just-Soft]

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.

[SergioMaster]

Bonjour,

je mettrais with TDXOrgChart.Create(Self) ....

[Just-Soft]

Bonjour Serge

je mettrais with TDXOrgChart.Create(Self) ....

que suis-je bête ?! merciiiiiiiiiiiiiiiiiiiiii

[Just-Soft]

Re

Je relance la discussion car cette fois-ci j'ai un problème d'ordre plutôt logique que j'arrive pas à résoudre. Comme dit plus haut, le but étant de créer une PageControl et à l'intérieur vont se poser des TabSheets qui sont eux créés à partie d'une boucle qui balaye une table. Jusqu'ici tout va bien, à ce stade, je veux créer un organigramme par TabSheet mais à l'exécution de mon programme j'ai des organigrammes créés dans la PageControl mais pas dans les TabSheet comme je souhaite le faire.

A priori, je dois déterminer TabSheet comme étant parent de dxOrgChart (organigramme) ce qui est tout à fait normal sauf que j'y arrive pas à le faire !

mon code est le suivant :

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
25
26
27
28
29
30
31
32
33
34
35
36
procedure TfmMain.RzPageControl_GEXPLOITEPageChange(Sender: TObject);
 
  procedure Org_BUILD(Vue: TrZTabSheet ; code_org : string);
  begin
    with TdxOrgChart.Create(Self) do
    begin
      Name := 'org_' + Trim(code_org);
      Parent := Vue; // le parent doit être TabSheet 
      Align := alTop;
      TabOrder := 0;
      Visible := True;
    end;
  end;
 
begin
  case RzPageControl_GEXPLOITE.ActivePageIndex of
  ....
   // Page organigramme
   5 : 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;
             Org_BUILD(??????, // que dois-je mettre ici ?
                       DM.IBCTable_UNITE.FieldByName('CODE_UNITE').AsString);
            DM.IBCTable_UNITE.Next;
           end
         end;
       end;
  end;
end;

merci encore.

[Ph. B.]

Bonjour,

A priori, je dois déterminer TabSheet comme étant parent de dxOrgChart (organigramme) ce qui est tout à fait normal sauf que j'y arrive pas à le faire !

Il faut passer par une variable temporaire qui sera transmise en paramètre à la procédure...

La partie de votre code modifié :

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
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
//...

On peut même optimiser un peu le code dans ce cas là : du fait de la portée de la variable introduite dans le code, on peut supprimer le paramètre Vue et le remplacer par ATabSheet là où il est utilisé.

[Just-Soft]

Bonjour,
Il faut passer par une variable temporaire qui sera transmise en paramètre à la procédure...

On peut même optimiser un peu le code dans ce cas là : du fait de la portée de la variable introduite dans le code, on peut supprimer le paramètre Vue et le remplacer par ATabSheet là où il est utilisé.

très bien vue Ph. B .... ça avance merci.