Comment appeler des procédures dev express

salam

je développe souvent a l'aide des composant dev express mais a chaque fois je trouve des difficultés pour appeler les procédures des événements (onclique, enchange)vu la multitude des variable locaux, puisque avec les événement des composant simple il sufie juste d'appeler le sender pour le moment je bloque sur une procédure qui s’appelle

Code:

---

oncellclick

---

Code:

---

1 2 3 4 5 6 7 8 9

procedure TFApplication.gridappapplicationCellClick (Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);   begin   //bla bla bla   end;

---

j’ai essayer avec ça

Code:

---

gridappapplicationCellClick(nil,nil,mbRight,ashift,ahandled);

---

j'ai déclarer ashift comme TShiftState mais j'ai pas trouver quoi lui affecter (j'ai fait une petite recherche et j'ai trouver que ça a un rapport avec les touches de clavier)
j'ai déclarer ahandled comme étant boolean mais bon j'ai pas trouver ce que ça veut dire
et ça n'a pas marcher rien ne ce passe lors de l’appelle.

je vous remercie d'avance.

Bonjour,

Citation:

---

Envoyé par adelcrb

j'ai déclarer ashift comme TShiftState mais j'ai pas trouver quoi lui affecter (j'ai fait une petite recherche et j'ai trouver que ça a un rapport avec les touches de clavier)
j'ai déclarer ahandled comme étant boolean mais bon j'ai pas trouver ce que ça veut dire
et ça n'a pas marcher rien ne ce passe lors de l’appelle.

---

Effectivement TShiftState a rapport avec les touches claviers mais aussi les boutons de la souris, c'est un type ensemble, défini dans l'unité Classes.
Pour Delphi XE2, on a :

Code:

---

type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble, ssTouch, ssPen, ssCommand);

---

Pour le définir son contenu, on va écrire par exemple :

Code:

---

1 2 3 4

// Touches Shift et Ctrl enfoncées ainsi que le bouton gauche de la souris aShift := [ssShift, ssCtrl, ssLeft]; // Ensemble vide aShift := [];

---

Pour tester l'existence d'un élément dans l'ensemble, on va écrire :

Code:

---

1 2	if ssLeft in aShift then Beep;

---

Enfin, tout cela, on le trouve dans l'aide... ;)
Maintenant pour appeler directement cette procédure normalement déclenchée lors d'un événement, on pourrait écrire :

Code:

---

1 2 3 4 5 6

var AHandled: Boolean; // ... gridappapplicationCellClick(nil, nil, mbRight, [], AHandled); // ou suivant ce que l'on veut simuler (appui sur Ctrl et Alt et bouton droit par exmple) gridappapplicationCellClick(nil, nil, mbRight, [ssCtrl, ssAlt, ssRight], AHandled);

---

Ensuite, le résultat dépendra du code présent dans la procédure gridappapplicationCellClick...

Bonjour,

Si tu mets à nil le premier paramètre, soit sûr que tu auras de gros soucis après.
La simple raison est que l'évènement est finalement un délégué qui fait de sorte à appeler les routines internes à une instance d'un objet. Alors, il faut que ton objet soit différent de nil, sinon, tu ne peux pas appeler aucune méthode bien évidement.
Ensuite, le deuxième paramètre peut encore poser un problème pour la même raison. C'est un objet, tu fais passer à nil et hop tu peux te retrouver dans le même malheur.
Le troisième paramètre est un type identifiant le bouton de la souris lors de la sélection de la cellule.
Le quatrième paramètre est l'un des boutons enfoncées du claviers (il peut être un parmi plusieurs et c'est pour cela que c'est un ensemble [])
Le cinquième paramètre est Handled: si le contrôle gère l'évènement, alors c'est à True, sinon c'est le parent qui gère cet évènement.

Bonne journée.