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.

[*alexandre*]

merci de vos réponses

[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.

[Andry]

Salut,

Dans ce cas précis, j'utiliserais un propriété avec un methode Setter.

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
TFormGoodies = Class(Tform)
private
  procedure SetMonParam(Value : Integer);
Public
Property MonParam : integer write SetMonParam;
end;
...
TFormGoodies.SetMonParam(Value : Integer) ;
begin
 // tu met ici toutes les actions à faire en fonction de value : genre modification de caption bouton, menu, etc
  .....
end;
 
 
procedure TSDIAppForm.ButtonGoodiesClick(Sender: TObject);
var
 FormGoodies : TFormGoodies;
begin
  FormGoodies := TFormGoodies.Create(self);
  FormGoodies.MonParam := 10;  
  ...
end;

Voilà.

A+

[TicTacToe]

Juste pour revenir au Release vs Free

+1 pour le Release.

Bien qu' un Free derriere un ShowModal théoriquement il y a peu de chance de plantage (quoi que... ).

Release fait un Free par message (voir source de TCustomForm.Release), message qui se retrouve à la fin de la file d'attente.
On est donc assuré, que tous les messages précédents sont traités, et le Free traité en dernier.

Par contre cela n'a rien a voir avec les gestion de la mémoire il me semble...
Release fait un Free purement et simplement... mais en étant sur que c'est à la fin de tout traitement.

[Louis Griffont]

Je comprend la différence entre Release et Free. Toutefois je pense que les problemes ne peuvent provenir que dans le cas de traitement non modal, car après un showmodal, il ne devrait plus y avoir de problème.

Pour plus de sureté, j'utiliserai dorenavant Release.

Merci pour les explications

PS : Ca ne change rien au principe du constructeur surchargé pour passer des paramètres.

[Droïde Système7]

Bonjour,

La méthode "Free" pour détruire un Tform doit être à la méthode "Application.Terminate" ce qui permet de quitter un programme.

Autrement dit, pas ces méthodes bourrines, une méthode "Release" pour détruire un TForm et une méthode "Close" pour quitter un programme. Là aussi cette méthode "Close" permet de liquider dans les règles de l'art et proprement les éventuelles séquences en file du programme.

Enfin... si j'ai bien suivi

[edam]

pour ma part j'utlise toujour release
free est déconseillé surtout si il est applé dans la meme fiche, (comme si en sie un branche....)
pour le multilangue déjà ce sujet est passé, fait un peut de recherche