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 :
ça ne doit pas être très méchant mais ça m'échappe ....
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;
Merci par avance.
Partager