Discussion :

[Reynald]

Bonjour a tous.

J'ai une petite question assez béte mais qui me pourrit la vie.

je veux utiliser la procédure suivante :

Code :

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

procedure Button1Click(Sender: TObject)

J'ai donc mit dans mon code :

Code :

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

     Button1Click();

Mais que dois-je mettre en parametres, car à la compilation
j'ai le message suivant :

[Erreur] Unit1.pas(351): Pas assez de paramètres originaux

"

Merci !

Reynald.

[lil_jam63]

Essaye avec

Code :

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

1
2
 
TreeView1Click(Sender);

[Clorish]

La definition d'un evenement de type Click est :

Procedure (Sender : TObject) of Object;

Donc le parametre est l'objet qui a declanché l'evenement (ie : Appelé la methode)

Donc la plupart des cas c'est "Sender" car on l'appele depuis un autre evenement (donc on l'objet qui declanche manuelement le clic est le meme que celui qui a declanché l'evenement en cours).

Sinon on met Self, c'est a dire d'objet qui execute la methodedans laquelel on appele l'evenement Click.

Enfin, si on l'appelle depuis une procedure "libre" (non methode d'objet) ou bien que l'on souhaite simuler une action sur un objet, on met "nil" (si on a pas besoin de connaitre l'objet declancheur) ou une variable derivant de TObject (si on souhaite faire croire que l'objet qui a declanché l'evenement et cet objet.)

[JustMe]

C'est déjà trés bien expliqué peut être que je vais faire de trop, mais c'est pour mieu t'orienter.
Tu peux mettre aussi en argument le nom de ton boutton bouton1

Code :

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

Button1Click(Button1);

car si tu aurais l'idée d'affecter ce même événement à plusieurs objet et que tu auras a tester sur l'objet ayant effectué l'évenement tu testera surement sur sender Comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Button1Click(Sender: TObject);
begin
  if sender = Button1 then 
  begin
   {.......}
  end
  else
  if sender = TreeView1 then
  begin
   {.......}
  end
{... et ainsi de suite}
end;

[sjrd]

Tout ce qui a été dit plus haut est vrai, cependant là je crois qu'on t'embrouille plus qu'on ne te donne de solution.
A moins que tu ne te serves du paramètre Sender dans la proc que tu appelles, passe nil comme argument :

Code :

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

Button1Click(nil);

[Reynald]

Merci Beaucoup

ça marche

Reynald.

[Clorish]

A moins que tu ne te serves du paramètre Sender dans la proc que tu appelles, passe nil comme argument :

En effet .... mais personnelement je prefere qu'on passe plus de temps a trouver la solution mais en ayant compris pourquoi on met "ca" et pas "ca" ... plutot que mettre en place une solution "miracle" qui marche sans vraiement avoir compris pourquoi ;p