lancement programmé de Button1.click

j'ai un programme avec un bouton sur la Form, type:

Code:

---

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin showmessage ('bouton appuyé'); end;

---

je voudrais pouvoir, par le programme lui même, sous certaines conditions, lancer la procedure correspondant à ce bouton.
ce qui revient à appuyer virtuellement sur le bouton.
comment est ce possible?
merci.
Jean Pierre

Salut

Comme ceci:

Code:

---

Button1.Click;

---

Tout simplement. ;)

@+ Claudius

Salut,

Il suffit d'appeler la procédure Click du Button.
Par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('coucou'); end;   procedure TForm1.Button2Click(Sender: TObject); begin Button1.Click; end;

---

Voilà!
A+ ;)

[Edit]
Grilled :aie:

euh...j'ai du rater qque chose

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); begin showmessage ('bouton appuyé'); end;   begin Button1.Click; end.

---

me donne identificateur non déclaré Button1

Citation:

---

Envoyé par potili2

euh...j'ai du rater qque chose

---

Oui, pour que Button1 soit accessible, il faut qu'il soit appelé par une méthode (procédure ou fonction d'objet) appartenant à un objet (ici TForm1).
Or ici rien ne prouve que votre procédure:

Code:

---

1 2 3

begin Button1.Click; end.

---

soit une méthode
Cordialement

Citation:

---

Envoyé par potili2

Code:

---

1 2 3 4

begin Button1.Click; end.

---

---

Tu as bien mis ce bout de code à l'intérieur d'une méthode de ta classe TForm1?

*LeGEC*

merci pour vos réponses.
Mais je voudrais justement éviter ça pour que mon programme se lance seul et parfois fasse appel au bouton
mon but serait ceci

Code:

---

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

unit Unit1;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;   type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end;   var Form1: TForm1; flag_conditionnel:integer; implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin showmessage('bouton appuyé'); end;   begin if flag_conditionnel=1 then Button1.click;   end.

---

mais peut être n'est ce pas possible
j'ai été formé à l'époque du basic (basic tout court, le visual basic n'existait pas) et la programmation objet, pour moi, n'est pas innée...

Delphi est un langage de programmation évènementiel (c'est a dire qui réagit a des évènements déclencher par l'utilisateur ou le programme lui même), qui agit différemment que basic ou pascal ou le code est exécuter de manière ascendante jusqu'à la dernière instruction .

dans votre cas il faudra peut être placer ce code

Code:

---

if flag_conditionnel=1 then Button1.click;

---

dans l'événement OnShow de la fiche principale si vous voulez qu'il soit exécuté au lancement de votre application ou dans un Timer si vous voulez surveiller la valeur de votre variable...etc.

Salut,

Je ne comprends pas trop comment tu veux déclencher le clic ?
Delphi fonctionne de façon événementielle. Si tu veux que ton clic soit déclenché virtuellement, il faut qu'à un moment donné, la valeur du flag change.

Si tu sais exactement quand il passe à 1 (lié à un événement, action de l'utilisateur,etc...), alors tu appelles la Button1.Click juste après, sinon, si tu ne sais pas mais que tu veux contrôler de façon périodique la valeur du flag, alors il va falloir utiliser un Timer.

En espérant t'avoir aidé.
A+ :)

merci pour vos réponses.
en le mettant dans l'évènement onshow, ça fonctionne.
quand le flag change, le bouton se déclenche.