affecter une fonction à onclick delphi

Version imprimable

bonjour à tous,
je veux affecter un champ de ma table a l'évènement d'un bouton , et pour cela j'ai crée une fonction comme tel la ou les autre procédure et function sont déclarées

Code:

procedure bouton_clik(codeproduit : integer);

qui est une fonction vide
et que j'appel la
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Function TForm_Vente_Caisse.Affecte_Bouton():integer; var Bouton : tcxbutton; begin With Datamodule4.affectation_t do begin Open; first; while not EOF do begin Bouton:=Tcxbutton(Form_Vente_Caisse.FindComponent(Datamodule4.affectation_tNOM_BUTTON.Value)); If Bouton <> Nil Then begin Bouton.Caption := Datamodule4.affectation_tNOM_PROd.Value; Bouton.Colors.Default := graphics.Stringtocolor(Datamodule4.affectation_tCOULEUR.Value); bouton.OnClick := bouton_clik(Datamodule4.affectation_tCODE_PROD.Value); end; next; end; end; end;
mon problème a la compilation "il me dite
Code:

1 2 [DCC Erreur] Vente_Caisse_U.pas(203): E2010 Types incompatibles : 'TNotifyEvent' et 'procedure, untyped pointer or untyped parameter' ':' attendu mais ';' trouvé"
je sais pas ou ça cloche, si vous avez pas une idée n'hésiter

C'est parce que le ButtonOnClick envoit 'Sender' comme paramètre.La procédure que tu assigne doit avor les mêmes paramètres: procedure bouton_clik(sender : TObject);
Un truc pour contourner ca c'est d'assigner l'integer que tu voulais utiliser à la propriété Tag du TButton ( donc le sender).Par la suite tu récupère ca avec
'sender as':
Code:

1 2 3 4 5 6 7 procedure bouton_clik(sender : TObject); var : MonIntegerQuiAvantDevaitEtreUnParamètre begin If sender.className = TButton then MonIntegerQuiAvantDevaitEtreUnParamètre := (sender as TButton).Tag; .......... end;

:recherch:
Gérer évènement composant runtime - ... on me dit d'ajouter une procédure liée à l'évènement OnClick ...

En complément de la réponse de user 56gt8, qui donne l'idée du Tag pour le stockage :

Code:

1
2
3
4
5
 
            Bouton.Caption := Datamodule4.affectation_tNOM_PROd.Value;
            Bouton.Colors.Default := graphics.Stringtocolor(Datamodule4.affectation_tCOULEUR.Value);
            bouton.OnClick := bouton_clik; // Affectation de procédure et non appel !!!
            Bouton.Tag := Datamodule4.affectation_tCODE_PROD.AsInteger;

Et ceci, pour utiliser correctement le langage Pascal Object en "Delphi"

Code:

1
2
3
4
5
6
7
8
9
procedure  bouton_clik(sender : TObject);
var 
  MonIntegerQuiAvantDevaitEtreUnParamètre: Integer;
begin
  // Is peut être remplacé par InheritsFrom, ...
If sender is TButton then
  MonIntegerQuiAvantDevaitEtreUnParamètre := (sender as TButton).Tag;
..........
end;

27/10/2008, 11h18
makaphrodite

user 56gt8,
j'ai pas compri grand chose de ce que tu ma repondu, le probleme n'est pas dans le parametre mais dans le type de retour a ce que je pense, vu que j'assaigne a l'evenement du buton une fonction sans aucun type de retour

j'ai modifié mon code suivant vos instruction,voila le code après modification

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
 Function TForm_Vente_Caisse.Affecte_Bouton():integer;
var Bouton : tcxbutton;
begin
  With Datamodule4.affectation_t do
    begin
      Open;
      first;
       while not EOF do
         begin
         Bouton:=Tcxbutton(Form_Vente_Caisse.FindComponent(Datamodule4.affectation_tNOM_BUTTON.Value));
         If Bouton <> Nil
         Then
           begin
            Bouton.Caption := Datamodule4.affectation_tNOM_PROd.Value;
            Bouton.Colors.Default := graphics.Stringtocolor(Datamodule4.affectation_tCOULEUR.Value);
           // bouton.OnClick := bouton_clik(Datamodule4.affectation_tCODE_PROD.Value);
            bouton.OnClick := bouton_clik; // Affectation de procédure et non appel !!!
            Bouton.Tag := Datamodule4.affectation_tCODE_PROD.AsInteger;
           end;
         next;
         end;
    end;
end;
 
procedure  bouton_clik(sender : TObject);
var
  code_prod: Integer;
begin
  // Is peut être remplacé par InheritsFrom, ...
If sender is TcxButton then
  code_prod := (sender as TButton).Tag;
end;

voila l'erreur que j'ai maintenant

Code:

[DCC Erreur] Vente_Caisse_U.pas(129): E2065 Déclaration forward ou external non satisfaite : 'TForm_Vente_Caisse.bouton_clik'

NB je suis débutante

27/10/2008, 11h42
madlozoz
Je supose que dans la déclaration de ta classe, tu a laissé

Code:

procedure bouton_clik(codeproduit : integer);

Comme tu n'a pas, par la suite, écrit de procédure avec ce paramètre, il te dit que cette déclaration n'est pas satisfaite

De plus, "procedure bouton_clik(sender : TObject);" ne marchera pas. Ca doit etre une methode de classe.
Donc
Code:

1 2 3 4 5 6 7 8 TForm_Vente_Caisse = class(TForm) (...) procedure bouton_clik(sender : TObject); (...) procedure TForm_Vente_Caisse.bouton_clik(sender : TObject); (...)
27/10/2008, 11h46
Andnotor
Il y a plusieurs erreurs.

La compilation du code est séquentiel (Du début à la fin)

Ta procédure Bouton_Click ne fait pas partie de la Form. Donc:
1. Soit tu crée un déclaration dans la partie interface,
2. Soit tu place ta procédure AVANT Affecte_Bouton,
3. soit tu l'inclus à la class TForm. (le mieux)
De plus la procédure devrait être suivie de of object si extérieur à la class TForm.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Interface TForm1 = class(TForm) ... procedure Button_Click(Sender :TObject); ... end; Implementation procedure TForm1.Button_Click(Sender :TObject); begin ... end;

c'est bon ca marche merciiiiiiiiiiiii beaucoup pour votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure   TForm_Vente_Caisse.bouton_clik(sender : TObject);// c'est ce qui manqué
var
  code_prod: Integer;
  touche : word;
begin
  // Is peut être remplacé par InheritsFrom, ...
    If sender is TcxButton then
  code_prod := (sender as TcxButton).Tag;
  Dblcb1.KeyValue := code_prod;
  touche := 13;
  Form_Vente_Caisse.DBLCB1KeyDown(TcxButton(Sender),Touche,[]);
    end;