Discussion :

[leonick12]

Bonjour,

Alors en gros j'ai une fenêtre principale à partir de laquelle je clique sur un bouton qui crée une fenêtre avec plein de composants, y compris donc un bouton. Concernant ce bouton, j'arrive à récupérer le caption, la classe, mais pas son nom ; par contre, si je modifie le nom après je peux voir son nom.

Dans le code

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
procedure TForm1.fenetre_alimClick(Sender: TObject);
var
 
    CONSIGNES_ALIM: TButton;
    wndNew : TForm;
 
begin  
wndNew:= TForm.Create(Self);
   Try
    wndNew.Caption              := 'MyNewWindow';
    wndNew.KeyPreview           := True;
    wndNew.DoubleBuffered       := True;
    wndNew.SetBounds            ((Screen.WorkAreaWidth -334) Div 2,
                                 (Screen.WorkAreaHeight-246) Div 2,
                                  334, 246);   
 
    CONSIGNES_ALIM            :=TButton.Create(Self);
    CONSIGNES_ALIM.Caption    :='MISE A JOUR';
    CONSIGNES_ALIM.Parent     := wndNew;
    CONSIGNES_ALIM.Width      :=96;
    CONSIGNES_ALIM.Height     :=25;
    CONSIGNES_ALIM.Left       :=199;
    CONSIGNES_ALIM.Top        :=143;
    CONSIGNES_ALIM.Onclick    :=@bouton_fenetreClick;
 
wndNew.Show;
   Finally
    //wndNew.Release;
    //wndNew:= Nil;
   End;                                
 
procedure TForm1.bouton_fenetreClick(Sender: TObject);
begin
 
 
  ShowMessage('*'+Sender.ClassName+'*'+(Sender as TButton).Caption+'*'+(Sender as TCustomButton).Name+'*'); // la je ne vois pas son nom
 
  (Sender as TButton).name:='bouton';
  ShowMessage((Sender as TButton).name); // et la je vois son nom
 
end;

[Chrispi]

Bonjour leonick12,

Je pense que j'ai trouvé la solution.

Je te propose le code suivant :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure TForm1.fenetre_alimClick(Sender: TObject);
var
    CONSIGNES_ALIM: TButton;
    wndNew : TForm;
 
begin
wndNew:= TForm.Create(Self);
   Try
    wndNew.Caption              := 'MyNewWindow';
    wndNew.KeyPreview           := True;
    wndNew.DoubleBuffered       := True;
    wndNew.SetBounds            ((Screen.WorkAreaWidth -334) Div 2,
                                 (Screen.WorkAreaHeight-246) Div 2,
                                  334, 246);
 
    CONSIGNES_ALIM            :=TButton.Create(Self);
    CONSIGNES_ALIM.Caption    :='MISE A JOUR';
    CONSIGNES_ALIM.Name       :='bouton'; //Voilà ce que j'ai ajouté qui manquait dans ton code
    CONSIGNES_ALIM.Parent     := wndNew;
    CONSIGNES_ALIM.Width      :=96;
    CONSIGNES_ALIM.Height     :=25;
    CONSIGNES_ALIM.Left       :=199;
    CONSIGNES_ALIM.Top        :=143;
    CONSIGNES_ALIM.OnClick    := @bouton_fenetreClick;
 
wndNew.Show;
   Finally
    //wndNew.Release;
    //wndNew:= Nil;
   End;
end;
 
procedure TForm1.bouton_fenetreClick(Sender: TObject);
begin
  ShowMessage('*'+Sender.ClassName+'*'+(Sender as TButton).Caption+'*'+(Sender as TButton).Name+'*'); //Ici aussi j'ai un peu modifié au niveau du nom
end;

En résumé, il semblerait qu'il fallait nommer le bouton dans sa création.

Espérant que ça te conviendra.

Bon week-end.

[leonick12]

Merci beaucoup en tout cas. j'ai zappé ce detail, mais je pensais que justement CONSIGNES_ALIM serait justement le nom par défaut et je vois qu'apparemment non.

Par contre, j'ai un autre problème qui a suivi : je crée une form avec un numéro différent à chaque fois, mais le problème c'est quand je ferme et que je recrée il me dit que le nom existe deja, je tiens à préciser que ces numéros vont de 1 a 5 car ces numéros sont associés à des données, donc le but c'est de pouvoir les fermer et les rouvrir. Je pense bien à show et close mais est-ce que ça ne prend pas trop de mémoire ?

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
wndNew:= TForm.Create(Self);
   Try
    wndNew.name                 := 'fenetreALIM'+inttostr(numero);
    wndNew.Caption              := titre+inttostr(numero);
    wndNew.KeyPreview           := True;
    wndNew.DoubleBuffered       := True;
    wndNew.SetBounds            ((Screen.WorkAreaWidth -334) Div 2,
                                 (Screen.WorkAreaHeight-246) Div 2,
                                  334, 246);                             
 
procedure TForm1.tableauON_OFFClick(Sender: TObject); // ici on passe a un clic pour justement ouvrir ou fermer la fenetre , evidemment j'ai pas remis tout le code..
 
IdFENETREalim:=(FindComponent('fenetreALIM'+inttostr(Acol)) as TForm);
 
    IdFENETREalim.Free; // j'ai essayer cette methode seule : le nom de la form est toujours la
    IdFENETREalim.destroy; // j'ai essayer cette methode seule : le nom de la form est toujours la
    IdFENETREalim.release; // j'ai essayer cette methode seule : le nom de la form est toujours la
    FreeAndNil(IdFENETREalim);  // j'ai essayer cette methode seule : le nom de la form est toujours la

[tourlourou]

Bonjour,
Quand tu écris

le nom de la form est toujours là

que veux-tu dire ?
Que la fenêtre est toujours recensée comme Composant de son Owner ? Auquel cas, il suffit de la supprimer.

[leonick12]

Bonjour,
Quand tu écris

que veux-tu dire ?
Que la fenêtre est toujours recensée comme Composant de son Owner ? Auquel cas, il suffit de la supprimer.

salut, donc oui effectivement la form est toujours la, c'est une form dynamique donc pour la supprimer c'est plus compliqué justement, j'ai essayer ces commandes deja mais sans succés :

Code :

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

1
2
3
4
5
6
IdFENETREalim:=(FindComponent('fenetreALIM'+inttostr(Acol)) as TForm);
*
    IdFENETREalim.Free; // j'ai essayer cette methode seule : le nom de la form est toujours la
    IdFENETREalim.destroy; // j'ai essayer cette methode seule : le nom de la form est toujours la
    IdFENETREalim.release; // j'ai essayer cette methode seule : le nom de la form est toujours la
    FreeAndNil(IdFENETREalim);  // j'ai essayer cette methode seule : le nom de la form est toujours la

apres l'idée est simple je creer une form avec un numero a la fin de son nom Ex:GESTION_ALIM1
je l'affiche avec .show pas .showmodal sinon j'ai pas acces au reste des fenetres sans la quitter
je l'utilise pour controler mon alim je la ferme pas forcement desuite
** apres je souhaite que quand je la ferme que ca efface toutes les donnees de cette form et evidemment que ca efface aussi cette form une fois que je la ferme
donc je la ferme normalement mais ca efface rien
et du coup quand je veux reouvrir cette form avec le numero qui lui convient , forcement ca me dit quelle existe deja.

Voila j'espere que c'est pas trop dur a comprendre

[tourlourou]

Quand tu crées la nouvelle fiche avec wndNew:= TForm.Create(Self); elle appartient au composant Self.

C'est-à-dire qu'à la destruction de son Owner, celui-ci se charge de libérer ses composants enfants.

Dans ton code, quand tu détruis la fiche, tu ne la retires pê pas de la liste de son propriétaire IdFENETREalim.Owner.Components.

De ton code :

Code :

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

1
2
3
procedure TForm1.tableauON_OFFClick(Sender: TObject); // ici on passe a un clic pour justement ouvrir ou fermer la fenêtre , évidemment j'ai pas remis tout le code..
*
IdFENETREalim:=(FindComponent('fenetreALIM'+inttostr(Acol)) as TForm);

il apparaît que c'est Self, de type TForm1 qui est le propriétaire de la fiche.
Pour l'enlever de sa liste, il devrait suffire d'ajouter :

Code :

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

RemoveComponent(IdFENETREalim);

[leonick12]

merci c'est parfait !!!!