Discussion :

[Goundy]

Bonjour.
Les gars j'ai un petit problème.
J'ai une forme avec Borderstyle: bsNone.
Je couvre cette dernière avec un TImage qui constitue un background pour mon cas. Cependant j'ai un petit problème à déclencher les popupmenu et à détecter les double click.
Déjà dans mon code j'ai:

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
 
type
  TFrm_CountDown = class(TForm)
....
  private
    { Private declarations }
  public
        procedure WMNCHitTest (var M: TWMNCHitTest);
                message wm_NCHitTest;
...
    { Public declarations }
  end;
 
implementation
 
...
 
procedure TFrm_CountDown.WMNCHitTest (var M: TWMNCHitTest);
begin
  inherited;
  if   M.Result  = htClient then
         M.Result       := htCaption;
end;
 
....

Ce code me permet de bouge la fenêtre en restant appuyé sur le bouton gauche de la souris. Cet évenement marche même sur le TImage qui est mon background mais ça ok je veux bien. Par contre mes autres evénements onClick ou onDblClick, onMouseDown/Up... ne répondent plus. Si je commente le message wm_NCHitTest; ben là tout remarche naturellement cependant je veux garder la possibilité de pouvoir bouger ma fenêtre avec la souris.

En gros comment tester s'il y'a eu click droit ou gauche depuis ma procedure WMNCHitTest

Merci pour vos suggestions

[Paul TOTH]

plait-il ?

si tu places une image SUR ta fiche c'est ton image qui chope les événements souris...plusieurs solutions

1) si ton image couvre toute la fiche, c'est pas compliqué, au lieu de prendre les événements de la fiche, tu prends ceux de l'image

2) tu peux propager le click de l'image vers la fiche (en ajouter Image.LEft et Top à x et y...)

3) utiliser l'événement OnPaint de ta fiche pour dessiner l'image (par ailleurs invisible) sur son canevas... du coup la fiche reprend tous les événements souris. Laquelle image peut venir alors d'un fichier externe ou d'une ressource au lieu d'être stockée dans le TImage.