A propos du tag

Réponse acceptée !
Salut,

si le bouton se trouve dans la même fiche c'est simple

procedure TForm1.Button6Click(Sender: TObject);
var i: Integer;
begin
  for I := 0 to ComponentCount-1 do
    if (Components[I] is TButton) then
      if (Components[I] as TButton).Tag = 2 then
        with (Components[I] as TButton) do
        begin
          Caption := 'Caption Changed';
          Click;
        end;
end;


 
@+
Cirec

---