Button Event OnClick Dynamique

Signaler
Messages postés
120
Date d'inscription
lundi 26 janvier 2009
Statut
Membre
Dernière intervention
27 août 2015
-
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
-
bonjour a tous

j'ai un problème si vous pouvais le résoudre svp :)

je cherche a executer le click sur un button dynamqiuement sachant que j'ai la propriété "name" de ce composant

pour accedez au composant, c pas un problem :
Tbutton(FindComponent('Button'+'1')).caption:='coco';


mais pour accède a son événement par exemple "OnClick" ( je sais pas comment ) ?????
je cherche un code genre :
Tbutton(FindComponent('Button'+'1'))Click(sender);

2 réponses

Messages postés
107
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
29 avril 2013
1
salut!!!
esseyer
IF Assigned(Button1.onClick)  then
button1.Click
else 
showMessage('Insérer Un Code !!!!!')


@+
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
Bonjour,
exemple avec deux boutons (button1 et button2) :

procedure TForm1.Button1Click(Sender: TObject);
var
  ButtonInProgress: TButton;
begin
  ButtonInProgress := TButton(FindComponent('Button' + IntToStr(2)));
  if Assigned(ButtonInProgress) then
    ButtonInProgress.OnClick(sender);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  showMessage('ok !');
end;



cantador