Discussion :

[anisb]

Bonjour à tous,

Je vais essayer d'être clair...
1) Mon projet contient une Form: dans le formCreate, j'instancie un certain nombre de Panel dont le Owner et le Parent est la Form. Dans le Create des Panels, j'utilise des fonctions qui font appels au canvas du Panel et tout ce passe bien (car le Parent est bien positionné avant l'utilisation de ces fonctions ).

2) J'ai changé certaines choses : maintenant, j'ai décidé de placer tous les composants qui étaient sur la Form dans un Panel. Ce Panel Englobant est instancié dans le FormCreate de la Form. Le Parent et le Owner de ce Panel est la Form. Les Panels Englobés sont instanciés dans le Panel Englobant, leur Owner et leur Parent seront donc le Panel Englobant. Mais maintenant, ça plante à l'éxecution lorsque j'arrive sur des instructions qui font appels au Canvas des Panels Englobés. Et je ne comprends pas ce qui se passe...

N.B : Toutes les créations sont éffectuées en Run Time (à l'éxécution) et non en Design Time (Conception)

Quelqu'un pourrait-il m'aider?
Amicalement,

Anis B.

[Rayek]

Il serait bien que tu précises l'erreur que tu as, car un "ca plante" ca ne nous dit pas où est l'erreur.
Un bout de code aussi avec l'endroit de l'erreur serait un petit plus que nous apprécierons ^^

[anisb]

Bonjour et merci pour la rapidité de ta réaction.

L'erreur est une violation d'accès lorsqu'on utilise les fonctions du Canvas : mais le Canvas n'est pas nil.

Voici un exemple :

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
Form.FormCreate( Sender : TObject );
begin
   Panel1 := TMonPanel.Create( Self );
   Panel1.Parent := Self;
   Panel1.PanelCreate;
end;

TMonPanel.PanelCreate;
begin
   SousPanel := TMonSousPanel.Create( Self );
   SousPanel.Parent := Self;
   SousPanel.PanelCreate;
end;

TMonSousPanel.PanelCreate;
var
  h : integer;
begin
  h := Canvas.TextWidth('Test'); // Plantage à l'appel de cette instruction
end;

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
TMonPanel.PanelCreate;
begin
   SousPanel := TMonSousPanel.Create( Self ); // plante à cet appel
   SousPanel.Parent := Self;
   SousPanel.PanelCreate; // ou à celui-ci ?
end;

[anisb]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
TMonPanel.PanelCreate;
begin
   SousPanel := TMonSousPanel.Create( Self ); // plante à cet appel
   SousPanel.Parent := Self;
   SousPanel.PanelCreate; // ou à celui-ci ?
end;

ça plante dans le deuxième ...
remarque en retappant ce code dans un nouveau projet on se rend compte qu'il marchait sans plantage ... donc je pense que le problème vient d'ailleurs... Le Canevas refuse de faire quoi que ce soit ... ça doit être un truc mal initialisé
est ce que quelqu'un a déjà eu ce problème ou connait la raison ?

[TicTacToe]

A mon avis,

Ton panel X englobant tes composants doit avoir comme Owner ET comme parent, la form.

Les composants visuels se trouvant dans ton panel X, doivent avoir comme Owner la forme ET comme parent le panel X.

La libération n'est normalement pas à faire, elle se fera normalement et dans le bon ordre à la destruction de la fiche.