Discussion :

[cilies38]

Bonjour,

J'ai un problème avec ce module je ne comprends pas trop pourquoi puisque dans un autre poste le code marchait très bien lorsque je clique sur un shape cela doit afficher d'autre shape et c'est au niveau du clique que ca coince. Voilà une partie du code

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
if NO_RES <> 1 then begin
//libérer les anciens composants crées
  for i:=0 to Length(Tabpage) -1 do begin
      ListeThemes:=Tabpage[0];
      for j := 0 to Length(ListeThemes)- 1 do begin
         theme:=tst(ListeThemes[j]);
         showMessage(format('%s',[theme.Name]));
         theme.Free;
      end;
   end;
 
   if Frm_searchDoc1.Cbox_ListeId.Items.Count mod 9<>0 then size:= Frm_searchDoc1.Cbox_ListeId.Items.Count div 9 + 1
   else size:= Frm_searchDoc1.Cbox_ListeId.Items.Count div 9;
Frm_searchDoc1.lbl_NumPage.caption:=format('1/%d',[size]);
SetLength(Tabpage, size);
//affichage du chemin
Frm_searchDoc1.JvGHP_Path.LabelCaption:=Frm_searchDoc1.JvGHP_Path.LabelCaption+'/'+Theme_Parent;
showMessage('coucou');
Frm_searchDoc1.DrawTheme(Frm_searchDoc1);
//ajouter le shape de retour
if jvShBtn_themeParent<> nil then jvShBtn_themeParent.Free;
W:=Frm_SearchDoc1.pnl_SearchTheme.Width;
H:=Frm_SearchDoc1.pnl_SearchTheme.Height;
jvShBtn_themeParent:=JvShBtn.create(Frm_SearchDoc1.pnl_SearchTheme,W div 2,H div 8,Theme_Parent);
jvShBtn_themeParent.name:=format('ShBtn%s',[id]);
showMessage('coucou2');
end;
end;

Ce qui est bizzare c'est que j'ai remarque que lorsque j'enlevais le code qui libères les ancients composants (shape) cela ne posait pas de problèmes est ce que quelqu'un peut m'aider ou au moins me dire à quoi correspond ce module ntdll.dll

[tatareau]

pout la dll voir
http://www.liutilities.com/products/...library/ntdll/
a tester si cette dll n'est pas virusée!