Discussion :

[*alexandre*]

Hello,

Je cherche à initialisé une variable qui est définit dans une Form.

Example j aimerais pouvoir passé lors de la création d une Form un attribut CurrentLanguage et ainsi loadé les Caption des boutons correspondant
que dois je ajouter dans ma class appellante j ai ceci pour le moment :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TSDIAppForm.ButtonGoodiesClick(Sender: TObject);
var
 FormGoodies : TFormGoodies;
begin
  FormGoodies := TFormGoodies.Create(self);
  FormGoodies.Show;  
end;

[anapurna]

salut

tu peut tres bien creer une methode dans lequel tu passe tes parametre

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
21
22
 
 TFormGoodies = Class(Tform)
...
Public
  Init(Monparam : Integer) ;
end;
...
TFormGoodies.init(Monparam : Integer) ;
begin
  ...
  Show
end;
 
 
procedure TSDIAppForm.ButtonGoodiesClick(Sender: TObject);
var
 FormGoodies : TFormGoodies;
begin
  FormGoodies := TFormGoodies.Create(self);
  FormGoodies.init(monParam);  
  ...
end;

[Louis Griffont]

Tu peux créér un constructeur

Code :

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

1
2
3
4
5
6
 
   Private
       Variable1 : String;
       Variable2 : Integer;
   Public
      Constructor MaCreation( AOwner: TComponent; MonParam1 : String; MonParam2 : Integer); override;

Ensuite dans l'implémentation

Code :

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

1
2
3
4
5
6
7
8
 
Constructor TForm1.MaCreation( AOwner: TComponent; MonParam1 : String; MonParam2 : Integer);
Begin
    inherited Create( AOwner);
 
    Variable1 := MonParam1;
    Variable2 := MonParam2;
end;

Par contre, il ne faut pas que la fenêtre soit créée automatiquement en début de projet, mais que tu la créés dynamiquement dans ton programme en faisant, par exemple.

Code :

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

1
2
3
4
5
6
7
 
Procedure TForm2.Button1Cliqk( Sender : TObject);
Begin
    Form1 := TForm1.MaCreation( Self, "Toto", 18);
    Form1.ShowModal;
    Form1.Free;
End;

En espérant t'avoir aidé...

Kwasin

[Philippe Gormand]

Salut

Kwasin a écrit :

Code :

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

1
2
3
4
5
6
7
8
 
 
Procedure TForm2.Button1Cliqk( Sender : TObject);
Begin
    Form1 := TForm1.MaCreation( Self, "Toto", 18);
    Form1.ShowModal;
    Form1.Free;
End;

ATTENTION : C'est plantage assuré. La méthode Free d'une fiche (TForm) libère la mémoire mais ne détruit pas l'objet. Il faut (impérativement) utiliser la méthode Release.
Donc :

Code :

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

1
2
3
4
5
6
7
8
 
 
Procedure TForm2.Button1Cliqk( Sender : TObject);
Begin
    Form1 := TForm1.MaCreation( Self, "Toto", 18);
    Form1.ShowModal;
    Form1.Release;
End;

[Louis Griffont]

ATTENTION : C'est plantage assuré. La méthode Free d'une fiche (TForm) libère la mémoire mais ne détruit pas l'objet. Il faut (impérativement) utiliser la méthode Release.
Donc :

Code :

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

1
2
3
4
5
6
7
8
 
 
Procedure TForm2.Button1Cliqk( Sender : TObject);
Begin
    Form1 := TForm1.MaCreation( Self, "Toto", 18);
    Form1.ShowModal;
    Form1.Release;
End;

T'es sûr ?
J'ai toujours utiliser Free, et j'ai jamais eu de plantage !
Rmq, je suis en Delphi5, c'est peut-être la raison.

[Thierry Laborde]

T'es sûr ?
J'ai toujours utiliser Free, et j'ai jamais eu de plantage !
Rmq, je suis en Delphi5, c'est peut-être la raison.

En fait ce n'est pas obligatoire que ça plante. Mais je confirme ce que dit philippe il faut utiliser Release au lieu de Free. D'ailleurs même l'aide Delphi le confirme (Et c'est valable sur la version 5) :

Tous les gestionnaires d'événements de la fiche ou ses enfants doivent utiliser Release àla place de Free (Delphi)ou delete (C++).Sinon,des erreurs d'accès àla mémoire se produiront.

[Lung]

ATTENTION : C'est plantage assuré. La méthode Free d'une fiche (TForm) libère la mémoire mais ne détruit pas l'objet. Il faut (impérativement) utiliser la méthode Release.

Je ne comprend pas. Comment un objet peut-il exister s'il n'existe plus en mémoire ?

[Thierry Laborde]

Je ne comprend pas. Comment un objet peut-il exister s'il n'existe plus en mémoire ?

En fait l'objet n'existe plus avec un Free. Le problème vient simplement du fait que le Free libère la fiche directement sans s'occuper des évenements possibles. Du coup des plantages sont possible. La doc Delphi dit ceci :

Release ne détruit pas la fiche avant que tous les gestionnaires d'événements de la fiche et des composants de la fiche n'aient eu le temps de terminer leur exécution.Cette procédure garantit aussi que tous les messages de la file d'attente des événements de la fiche sont traités avant la libération de la fiche.