Discussion :

[heider]

Salut a tous,
Dans un soucis de centralisation de mon code source, je m'efforce de créer des procédure réutilisables pour d'autres parties de mon code. C'est pour ca que j'ai créé une procedure globale pour les évènement souris, le problème est que maintenant il faut que je récupère l'évènement, a savoir OnMouseMove,OnMouseUp,... ... Je sais récupérer le type de bouton sur lequel on a cliqué mais je ne sais toujours pas comment obtenir l'évènement.
Merci pour votre aide.

[Redsky]

Je n'ai pas vraiment la solution a ton probleme, mais peut etre une idee....

Les evenement n'ont pas toujours le meme nombre de parametres, Tu peux peut-ete essayer en verifiant quels parametres sont "unassigned" savoir quel evenement tu as appeler?!

Je ne sais pas si ca t'aide...

J'ai aussi une question ou tu pourra surement m'aider... J'essaie d'ecrire une fonction globale juste pour un evenement: OnKeyPress.
J'ai fait ca comme ca:

Code :

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

1
2
3
4
5
6
7
8
 
procedure OnKeyPress_CancelForbiddenChar(Sender: TObject; var Key: Char);
implementation
procedure OnKeyPress_CancelForbiddenChar(Sender: TObject; var Key: Char);
begin
	if Key = '_' then
		Key := #0;
end;

Le probleme c'est que quand je suis sur un controle et que je vais ajouter la fonction, elle ne figure pas sur la liste. Comment faire pour que la fonction soit reconnu comme une fonction "evenement"?
(L'unite ou figure ma fonction est inclue dans l'unite de mes controles.)

[TicTacToe]

vive l'objet !

dans ce cas, créé une form ancêtre avec ton code source répétitif, pas seulement sur onmouse...

puis dans les form enfants, le inherited de onMousexxx (par exemple) appelera ton code redondant, auquel tu pourras ajouter dans l'enfant éventuellement du code spécifique

Sinon, un autre moyen, est de créé une/des méthodes (avec exactement les même paramètre que les evts correspondant), et de les affecter dynamiquement au besoin. ie

Code :

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

Monobjet.OnMouseMove := MaMethodeGeneriqueOnMouseMove

[heider]

en fait, c'est pas vraiment ce que je veux faire, ce que je veux faire c'ets : dans une procédure applicable a touts les évènements OnMouseXXX, exécuter du code relatifs a : soit OnMouseMouve si c'est onMouseMove, onMouseUp si c'est OnMouseUp, .. mais dans une seule procédure, voici un bout de code, il n'est pas explicite car je n'ai implémenté que le cas de OnMouseDown et OnMouseUp (c'est un exemple de ce que je veux faire).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.FormMouseXXX(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //uniquement si l'évènement est OnMouseDown.
  if Button in [mbLeft,mbRight,mbMiddle] then
    case Button of
      mbLeft   :  simulateurNumber := 10;
      mbRigght :  simulateurNumber := 20;
      mbMiddle :  simulateurNumber := 30;
    end;
 
  //Uniquement si l'évènement est OnMouseUp.
  if Button in [mbLeft,mbRight,mbMiddle] then
    case Button of
      mbLeft : simulateurNumber := 11;
      mbRight : simulateurNumber := 21;
      mbMiddle : simulateurNumber := 31;
    end;
end;

[TicTacToe]

si tu affectes OnMouseXXX à tous tes evts souris et que tu testes ShiftState sur le bouton ca pourrait marcher ?
De toute manière, il faut traiter à part le Move et le Up/Down car les paramétres des evts ne sont pas les mêmes.
Donc centraliser ton code dans une procedure ailleurs, appelé par les 2 evenements

[heider]

ta première solution ne pourrait pas marcher car le shift fait référence aux touches mortes (alt,ctrl,...) par contre il y a moyen avec ta deuxième proposition, faire une procédure globale prenant un byte (de 1 à 3) en paramètres et les appeller dans mes procédure OnMouveXXX ca pourrait marcher si je ne me trompe pas ^^ ?

[heider]

ok c'est bon, je viens de trouver une alternative, je vous donne un code pour exemple (comme quoi on ne cherche jamais asser (c'est pas très propre mais ca à quand meme le mérite de fonctionner) :

Code :

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

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
procedure TForm1.OnMouseXXX(typeEvent : Byte;Bouton: TMouseButton);
begin
  case typeEvent of
    1 : case Bouton of
          mbLeft :  showmessage('OnMouseDown sur Gauche');
          mbRight : showmessage('OnMouseDown sur Droite');
          mbMiddle :showmessage('OnMouseDown sur Milieux');
        end;
    2 : case Bouton of
          mbLeft :  showmessage('OnMouseUp sur Gauche');
          mbRight : showmessage('OnMouseUp sur Droite');
          mbMiddle :showmessage('OnMouseUp sur Milieux');
        end;
  end;
 
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    OnMouseXXX(1,Button);
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    OnMouseXXX(2,Button);
end;

[heider]

Je n'ai pas vraiment la solution a ton probleme, mais peut etre une idee....

Les evenement n'ont pas toujours le meme nombre de parametres, Tu peux peut-ete essayer en verifiant quels parametres sont "unassigned" savoir quel evenement tu as appeler?!

Je ne sais pas si ca t'aide...

J'ai aussi une question ou tu pourra surement m'aider... J'essaie d'ecrire une fonction globale juste pour un evenement: OnKeyPress.
J'ai fait ca comme ca:

Code :

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

1
2
3
4
5
6
7
8
 
procedure OnKeyPress_CancelForbiddenChar(Sender: TObject; var Key: Char);
implementation
procedure OnKeyPress_CancelForbiddenChar(Sender: TObject; var Key: Char);
begin
	if Key = '_' then
		Key := #0;
end;

Le probleme c'est que quand je suis sur un controle et que je vais ajouter la fonction, elle ne figure pas sur la liste. Comment faire pour que la fonction soit reconnu comme une fonction "evenement"?
(L'unite ou figure ma fonction est inclue dans l'unite de mes controles.)

Je ne comprends pas bien ce que tu veux dire, ce n'ets pas assez explicite, d'après ce que j'ai compris, tu n'arrives pas a appeller la fonction que tu viens de créer?
N'oublies pas que pour appeller une fonction d'une autre unité, tu dois faire comme ceci :

Code :

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

MonUnite.Mafonction(param1,param2,paramX);

[TicTacToe]

Entre parenthèses...
Voici l'aide Delphi de TShiftState
Qui inclut donc, l'état du bouton... (pas que les touches 'mortes')

ssShift La touche Maj est enfoncée.
ssAlt La touche Alt est enfoncée.
ssCtrl La touche Ctrl est enfoncée.
ssLeft Le bouton gauche de la souris est enfoncé.
ssRight Le bouton droit de la souris est enfoncé.
ssMiddle Le bouton central de la souris est enfoncé.
ssDouble On a double-cliqué sur la souris.

[heider]

Autant pour moi, je pensais que c'était uniquement pour ce qui concerne les touches mortes, entre () aussi, je viens d'implémenter mon code et il fonctionne parfaitement.. ^^ . Je suppose que ca doit aussi marcher avec le shift alors ^^.