Discussion :

[adelcrb]

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 :

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

oncellclick

Code :

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

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 :

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

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.

[Ph. B.]

Bonjour,

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 :

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

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 :

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

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 :

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

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 :

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

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

[Moez.B]

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.