cs_bazbazus
Messages postés120Date d'inscriptionlundi 26 janvier 2009StatutMembreDernière intervention27 août 2015
-
16 mars 2013 à 13:41
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 2021
-
18 mars 2013 à 11:43
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
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 18 mars 2013 à 11:43
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;