Problème avec constructor d'une TFrame

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

J'ai un message d'erreur quand j'essaie de modifier un composant dans un frame.

Je n'arrive pas modifier des composants dans une frame avec un constructor. Dans ma frame j'ai placé une TVertScrollBox. Et au démarrage de l'application, mon programme plante...
Quand j'appelle cette même procédure à partir du FormCreate tout fonctionne correctement...

J'ai essayer avec d'autre composant et même réusltat.
Comment faire pour modifier un composants d'une TFrame a l'exécution sans passer par le FormCreate principale ?

Merci pour votre aide

Le message d'erreur:
Pièce jointe 573171

Constructor de ma frame:
Code:

1 2 3 4 5 6 7 8 constructor Create(aOwner: TComponent);override; constructor THomePageFrame1.Create(aOwner: TComponent); begin inherited; InitScore; end;
La procedure:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure THomePageFrame1.InitScore; var C: TLayout; begin Text5.Text:='NO DATA'; Text2.Text:='0'; C:=Tlayout(Form1.HomePageFrame11.Layout4.Clone(nil)); C.Visible:=true; Form1.HomePageFrame11.VertScrollBox1.InsertObject(0, C); C.Align:=TAlignLayout.Top; end;

17/06/2020, 23h09
Paul TOTH

tu ne peux pas faire référence à Form1.HomePageFrame11 depuis le constructor car la variable n'est pas encore alimentée

mais si je comprend ton code, Layout4 est un composant de ta Frame au même titre que Text2 ou Text5 non ? alors pourquoi passer par Form1 ?
17/06/2020, 23h20
Tartie

C'est justement mon problème, je suis obligé de passer par le constructor du Form1. Dans Ma Frame, j'ai une TVertScrollBox et a l'intérieur le layout4 avec text2 et text5.
Ce que je n'arrive pas a comprendre c'est pourquoi mon programme crash quand j'appelle ma procédure avec le code ci dessus.
Mais quand j'appelle cette même procédure avec le le constructor du Form1 tout marche parfaitement.

ben je viens de te répondre non ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure THomePageFrame1.InitScore;
  var
  C: TLayout;
begin
  Text5.Text:='NO DATA';
  Text2.Text:='0';
  C:=Tlayout(Layout4.Clone(nil));
  C.Visible:=true;
  VertScrollBox1.InsertObject(0, C);
  C.Align:=TAlignLayout.Top;
end;

mais pourquoi diable faire cela ?!

18/06/2020, 00h01
Tartie

Merci beaucoup pour tes réponses et tes explications!! Maintenant je comprends mieux ceux qui se passe.
Mais Imaginons que je mette cette procédure dans un fichier unité, comment je fait pour pouvoir accéder a la variable si elle n'est pas encore alimentée?

alors il y a une notion que tu ne maîtrise manifestement pas c'est celle de l'objet

dans cet exemple, je n'ai pas besoin d'avoir accès à la variable Form1.HomePageFrame11 car le code est celui de l'objet lui-même, et comme dirait Descartes : "je pense donc je suis"; l'objet n'a pas besoin d'accéder à une variable qui lui fait référence pour exister et travailler.

le fait même de déclarer une objet avec des membres lui permet d'être autonome.
Code:

1 2 3 4 5 6 7 8 9 10 11 type THomePageFrame = class(TFrame) ErgoSum: Boolean; procedure Cogito; end; procedure THomePageFrame.Cogito; begin ErgoSum := True; end;
dans le code ci-dessus, ErgoSum étant un membre de la classe, toutes ses méthodes peuvent y faire référence directement, il est dans "la portée" du code, si je crée deux instances de cette frame, chacun a sa propre valeur
Code:

1 2 3 4 5 6 7 8 9 10 11 12 var Frame1, Frame2, Frame3: THomePageFrame; begin Frame1 := THomePageFrame.Create(Application); Frame1.Cogito(); Frame2 := THomePageFrame.Create(Application); Frame2.Cogito(); Frame3 := Frame1; Frame1 := nil; Frame3.Cogito(); end;
dans le code ci-dessus je crée deux frames: Frame1 et Frame2, si je copie Frame1 dans Frame3, cela ne crée pas une nouvelle frame, c'est juste un nouveau mode d'accès à la frame existante.
ensuite quand je mets "nil" dans Frame1, cela ne détruit pas la frame, mais il n'est plus possible d'y accéder par Frame1...et si j'appelle Frame3.Cogito, c'est toujours le membre ErgoSum de la première frame crée qui sera mis à jour.

et dans le constructor de la frame (ou dans tout autre méthode de celle-ci) je peux aussi appeler Cogito ou modifier ErgoSum directement sans passer par une des variables Frame1, 2 ou 3.
Code:

1 2 3 4 5 6 7 constructor THomePageFrame.Create(AOwner: TComponent); begin Cogito(); if ErgoSum = False then raise Exception.Create('Je ne pense pas !'); end;
ensuite si tu veux faire une procédure indépendante de l'objet qui le manipule, le plus simple est de lui donner une référence à l'objet
Code:

1 2 3 4 5 6 procedure Cogite(Frame: THomePageFrame); begin if not Frame.ErgoSum then Frame.Cogito(); end;
et au besoin tu pourras faire un
Code:

1 2 3 4 5 procedure TForm1.Button1Click(Sender: TObject); begin Cogite(HomePageFrame11); end;
mais ça n'a pas bcp d'intérêt, il serait plus judicieux de faire appel à une méthode Cogite() de la frame

18/06/2020, 14h08
Tartie

Problème résolue !!
Merci beaucoup pour tes réponses et ton temps.
Après mettre amusé sur delphi je dois avouer que ta méthode marche super bien.
Merci beaucoup !!