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;