Discussion :

[yoghisan]

J'ai comme un soucis...

Sur une image, je me sers de ces évènements.
- OnMouseUp
- OnMouseMove
- OnMouseDown
- OnClick
- OnMouseEnter (Evènement que j'ai créé)
- OnMouseLeave (Evènement que j'ai créé)

A savoir, les affections sur les événements ne sont pas toujours les mêmes...

Dans mon "OnMouseUp", un TColorDialog peut s'ouvrir. Et vlan, l'ordre de mes évènements change...

Comment faire pour bloquer les évènements (le temps d'uliser le TcolorDialog) et les relancer ?

Merci, David.

[sjrd]

Tu peux simplement les affecter à nil :

Code :

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

1
2
3
Image1.OnXXX := nil;
...
Image1.OnXXX := Image1XXX;

[yoghisan]

oui, j'ai y pensé.

Je voulais savoir si on pouvait généraliser la chose...

Pour faire ca, tu me dires comme je peux mémoriser l'affectation de l'événement avant de le changer ?

Code :

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

1
2
3
4
5
6
7
8
var Memoire: ??????;
begin
   Memoire := TImage(sender).OnMouseMove;
   TImage(sender).OnMouseMove := nil;
   // Traitement
   TImage(sender).OnMouseMove := Memoire;
   // Redeclencher l'évènement ?
end;

Après comment je fais pour reclencher les evenements ?[/code]

[sjrd]

Pour chaque événement, tu vas voir dans l'aide de quel type il est (TNotifyEvent, TMouseEvent, etc.) et tu déclares ta variable Memoire comme de ce type.

[yoghisan]

Et comment on simile un click sur une image qui genere tous les évènements ?
C'est possible ?

[sjrd]

Si c'est juste pour déclencher les événements, tu peux les appeler directement :

Code :

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

1
2
Image1.OnMouseDown(Image1, ...);
Image1.OnMouseUp(Image1, ...);

[yoghisan]

J'avais pensé à tout ca mais je pensais qu'il pouvait y avoir plus simple.

Bon, je vais coder tout ça.

Merci pour tout !

[yoghisan]

Un dernier soucis...

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  MemoireOnClick: TnotifyEvent;
begin
  MemoireOnClick := TImage(Sender).OnClick;
  TImage(Sender).OnClick := nil;
  // Traiment
  TImage(Sender).OnClick := MemoireOnClick;
  if not (MemoireOnClick=nil) then TImage(Sender).OnClick(Sender)

Ca plante sur le test (dernière ligne). C'est quoi la bonne synthaxe ?

J'ai besoin de faire ce test car si il n'y a aucune procedure rattaché à l'évènement, une erreur se produit.

Je peux mettre un "try" mais bon, j'aimerai savoir...