Discussion :

[potili2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Cl@udius]

Salut

Comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Button1.Click;

Tout simplement.

@+ Claudius

[ero-sennin]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[potili2]

euh...j'ai du rater qque chose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[didier.cabale]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
begin
Button1.Click;
end.

soit une méthode
Cordialement

[LeGEC]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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*

[potili2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[aityahia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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.

[ero-sennin]

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+

[potili2]

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