Discussion :

[James64]

Salut,
je veux appeler une procédure d'une autre form par:

Code :

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

Form5.BitBtn1Click(Sender)

Il me renvoie une erreur du type : Classe d'exception TDataBaseError. Expression attendue mais ')' trouvé

Pouvez vous m'aider

Merci

[portu]

Ton Sender n'est pas de type Tobject, c'est pour ca
C'est mieux comme cela.

Code :

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

1
2
 
Form5.Bitbtn1.Click;

[James64]

Les procedures sont toutes de la forme :

Code :

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

procedure TForm1.BitBtn7Click(Sender: TObject);

et l'appel ne fonctionne pas

[James64]

G trouvé l'erreur. C'était trés indirecte mais ca genait l'appel click. Merci qd meme

A plus

[LadyWasky]

Mais si, ça va marcher !

Ca c'est la gestion de l'évènement du clic sur le bouton (la procédure que tu veux appeler) :

Code :

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

1
2
 
procedure TForm1.BitBtn7Click(Sender: TObject);

Sender n'est rien d'autre la variable de l'objet qui à déclenché l'évènement...

Ca, par contre, c'est ce qui permet de déclencher l'évènement décrit ci-dessus :

Code :

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

Form1.Bitbtn7.Click;

Donc, quand tu écris Bitbtn7.Click, ça appelle procedure TForm1.BitBtn7Click(Sender: TObject);, si cette procedure est effectivement reliée à l'évènement Onclick du Bitbtn7 !

Explications, comment ça se passe :
En gros, dans OnClick est une variable de l'objet bouton qui accepte comme valeur une procedure, imagine le écrit comme ça (même si c'est un peut différent en réalité) et compare avec la variable i :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure MonClick(Sender: TObject);
begin
  //du code
end;
..............
var
  i:integer;
  Bitbtn7.Onclick:TProcedure(Sender:TObject); <-- là c'est faux, mais c'est pour t'illustrer la chose...
 
begin
  i:=5;
  Bitbtn7.Onclick:=Monclick;
end;

Lorsque tu cliques sur le bouton [b]Bitbtn7[b], delphi utiliseras cette procedure en interne, là aussi c'est fantaisiste mais ça permet de comprendre :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure Bitbtn7.click;
begin
  if Bitbtn7.Onclick<>nil //Delphi vérifie si tu as mis une procedure 
                                  //dans sa variable, sinon il ne fait rien
  then Bitbtn7.Onclick(Bitbtn7);  //on appelle la procedure stockée 
                                              //dans la variable avec comme paramètre
                                             //le nom du bouton qui la déclenche
end;

Tu vois bien que delphi appelle ta procedure MonClick

L'intéret de ceci c'est que tu peux avoir par exemple 3 boutons qui utilisent la même procedure :

Code :

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

1
2
3
4
 
   Bitbtn1.Onclick:=Monclick;
   Bitbtn2.Onclick:=Monclick;
   Bitbtn3.Onclick:=Monclick;

et si tu fais dans ton code Bitbtn2.click, la variable sender dans ta procedure MonClick sera égale à BitBtn2, exemple :

Code :

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

1
2
3
4
5
6
procedure MonClick(Sender: TObject);
begin
  if sender=Bitbtn1 then showmessage('Bouton 1');
  if sender=Bitbtn2 then showmessage('Bouton 2');
  if sender=Bitbtn3 then showmessage('Bouton 3');
end

... et là, le message Bouton 2 s'affichera...

donc on résume le processus qui se déroule :
1) tu cliques sur ton bouton, ou bien dans ton code tu écris BitBtn2.click;
2) déroulement de la procedure click du bouton correspondant
3) la procédure MonClick contenue dans la variable OnClick du bouton est éxécutée avec comme paramêtre dans la variable Sender le nom du bouton qui déclenche la procédure...

Dans le cas qui t'intéresse :
Dans l'unité de form1 :

Code :

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

1
2
3
4
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
  Form5.Bitbtn1.Click;
end;

Dans l'unité de Fom5 :

Code :

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

1
2
3
4
procedure TForm5.BitBtn5Click(Sender: TObject);
begin
  TonTraitement;
end;

TonTraitement peut être n'importe quoi...

L'erreur que du décris proviens de cette partie là du code, pas du reste...
En tout cas, je t'engage vivement à lire un tutoriel de base pour bien comprendre comment fonctionne les évènements (style essayer plein de chose avec 2 boutons sur une fiche avec un TEdit) avant de t'engager dans la programmation avec des bases de données[/list]