il y a une chose de bizarre j'ai essayer avec deux autres formulaires, et les deux s'ouvrent sans problème. Un n'a pas accès à la base de données et l'autres oui et les donnes sont stocker dans un ADOLookupListBox pourtant ils sont tous ouvert de la même manière.
Code :
- procedure TMainSesame.ToolButton2Click(Sender: TObject);
- begin
- EdtGroupes := TEdtGroupes.Create(Application);
- end;
|
par contre dans celui qui pose problème il plante lorque je veux créer un treeView
code de l'évènement OnCreate
Code :
- procedure TEdtGroupes.FormCreate(Sender: TObject);
- begin
- EG_EdtSGroupe.Enabled := False;
- EG_QueryPortes.Open;
- EG_QueryEdtGroupe.Open;
- TreeViewCreate;
- end;
|
Debut de de la procedure TreeViewCreate
Code :
- procedure TreeViewCreate();
- var
- Enreg_id: TPtrId;
- PtrId : TPtrId;
- begin
- EdtGroupes.CNode := EdtGroupes.EG_TVGroupes.TopItem;
- PtrId := EdtGroupes.CNode.Data;
- if PtrId <> nil then
- TreeViewClear;
|
et enfaite il plante sur la première ligne. j'ai essayer d'enlever tout ca et mettre que la procedure TreeViewClear mais ca plante à la première lignes de l'autre fonction. il me semble que ca apparait dès que je touche a mon TreeView.
Si après avoir vu l'erreur, si je relance plusieurs fois de suite mon programme le problème n'est plus