Bonjour à tous...Voilà mon probleme : Sur une form, je crée des TButton dynamiquement, ainsi que des TPanel en invisible. J'ai mis l'évènement 'Onclick' sur chaque boutton, le problème est comment faire pour que le TButton soit reconnu ? Plus précisement, je voudrais faire que si l'on clique sur le premier TButton (créer dynamiquement), le TPanel correspondant (même tag, même caption) devient visible. Jusqu'a présent, je peux cliquer sur n'importe quel bouton, c'est le dernier créer qui prend le focus ! Je met le bout de mon code :
 

 
Merci de votre réponse...

Salut ,  
 
Tu as essayé dans ce genre la :  
 
  label1.Caption := 'C''est le boutton '+inttostr(TButton(Sender).Tag);
 

j'ai fait ça avec un popupmenu crée dynamiquement ,a peutpre la méme chose
 
procedure TForm1.PopupMenuItemsClick(Sender:TObject);
var n:integer;
begin
with Sender as TMenuItem do
     begin
     n:=Tag;
     listbox1.ItemIndex:=n;
     showmessage('Vous avez cliquer sur '+listbox1.Items.Strings[n]);
     end;
end;
procedure TForm1.PopupMenuPopup(Sender: TObject);
var index:Integer;
    NewItem:TMenuItem;
begin
PopupMenu.Items.Clear;
for index :=0 to ListBox1.Count-1 do
    begin
    NewItem :=TMenuItem.Create(PopupMenu);//crée le nouvel élément
    PopupMenu.Items.Add(NewItem);//lui ajoute le Popupmenu
    NewItem.Caption :=ListBox1.Items.Strings[Index];
    NewItem.Tag :=index;
    NewItem.OnClick:=PopupMenuItemsClick;//lui assigne un gestionnaire  
    //d'evenement
    end;
end;