Discussion :

[zemeilleurofgreg]

Bonjour à tous,

j'ai une procedure OnPaint pouvant être appelée par 2 procédures différentes (Onclick et OnmouMove).

J'aimerais connaitre à partir du Sender de OnPaint l'évenement qui a déclenché le OnPaint.

J'ai essayé ceci mais sans succès :

Code :

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

if Sender.ClassType=TMouseMoveEvent then

Message : '(' attendu mais THEN trouvé

Je pourrais me débrouiller avec une variable mais je voudrais une technique un peu plus pro et propre

Merci d'avance.

[ShaiLeTroll]

TMouseMoveEvent c'est un pointeur de méthode, équivalent du TMethod
ClassType renvoie un TClass, une reférence de classe !
Cela n'est absolument pas comparable !

Sender en plus c'est un TObject, un TForm ou un TPaintBox par exemple !
Ensuite OnPaint ne DOIT jamais être appelé manuellement !
Si tu veux forcer le dessin durant le OnClick ou OnMouseMove de ton contrôle, tu dois faire un Invalidate, qui va forcer le redessinement du bouton par Paint et donc l'appel à OnPaint

[zemeilleurofgreg]

Si tu veux forcer le dessin durant le OnClick ou OnMouseMove de ton contrôle, tu dois faire un Invalidate, qui va forcer le redessinement du bouton par Paint et donc l'appel à OnPaint

oui pour cela, nous sommes bien d'accord c'est ça que je voulais dire !

N'y a t'il donc pas moyen de récupérer l'évennement qui à provoquer l'appel de onpaint (via invalidate) ?

[zemeilleurofgreg]

En fait je dois savoir si c'est le onclick ou onmousemove qui fait le invalidate.

[ShaiLeTroll]

Pourquoi ne pas utiliser un objet intermédiaire !

A la création de l'objet, tu lui passe le Control qu'il doit gérer !
lors du click, tu appels une méthode de cet objet qui encpasule le Invalidate, qui met un flag Click
lors du mouve, tu fais pareil, un flag mouve
Lors du OnPaint, tu appels une 3 eme methode de l'objet qui regardes les flag, modifie le Canvas du Control géré, une fois traité sur les repasse à OFF
il me semble que Invalidate produit un message, que le Paint n'est pas immédiat, du coup, tu pourrais avoir un Mouve et un Click très rapproché

Evidement, tu peux juste mettre deux peuvres booléens dans la form !
L'objet c'est juste un découpage, cela semble peut-être plus "pro"
Un peu comme une séparation Vue-Controleur

[zemeilleurofgreg]

lors du click, tu appels une méthode de cet objet qui encpasule le Invalidate, qui met un flag Click

pour le flag, j'ai compris ...Mais pour ce qui est de l'encapsulation du invalidate

ca donnerait un truc du genre : ??

Code :

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

1
2
3
4
5
procedure Intermédiaire(objet);
begin
   flag:=click;
   objet.invalidate;
end;

oui je sais, j'ai encore beaucoup à apprendre concernant la POO

tu pourrais avoir un Mouve et un Click très rapproché

exactement et cela m'ennuie beaucoup parce que un click est toujours suivi et précédé d'un mousemove !