Discussion :

[MarcP]

Bonjour,
Je rencontre un plantage systematique lors de l'affectation du page controle (ligne Tab.PageControl := pc), avec une violation d'accès à la mémoire.
Je ne comprends pas trop d'ou ca peut venir, tout a l'air assigné correctement?
En commentant la ligne plus de soucis mais la tab n'apparait plus...
(le code ci dessous est simplifié et j'ai viré les controles d'erreurs pour + de clareté)

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
 
var
f : TForm;
pc : TpageControl;
tab : TTabSheet;
i : integer;
 
begin
 
f := TForm.Create(Self);
f.Parent := nil;
f.OnResize := ResizeSGF;
 
pc := TPageControl.Create(Self);
   pc.Parent := f;
   pc.Align := alClient;
 
for i := 0 to LBFamilles.Items.Count -1 do
   begin
     Tab := TTabSheet.Create(Self);
       Tab.Parent := pc;
       Tab.PageControl := pc;
   end;

Merci pour toute aide ou piste

[MarcP]

trouvé
En fait, c'est le f.OnResize := ResizeSGF; qui faisait planter et bloquer le debugguer sur ma ligne Tab.PageControl := pc;
avec un f.OnResize := ResizeSGF; mis juste avant le form.show, plus de soucis