Discussion :

[lejert]

Je rencontre un probleme ...

je créé dynamiquement des popup lorsque l'on complete un TEdit ...

Je voudrais, lorsque l'utilisateur appuye une touche, fermer ce popup. OnKeyDown n'existe pas à proprement parler dans les evenements du composant, mais EnableHotKey laisse penser que le composant le recoit un message similaire , du moins je pense ...

Le probleme est que mon code ne fonctionne pas ...

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
29
30
31
32
33
34
35
36
37
38
39
40
41
unit PopUpMenuExtended;
 
interface
 
uses
  Classes, StdCtrls, Menus, Dialogs, Unit1, Forms, Messages;
 
type
  TPopUpMenuExtended = class(TPopUpMenu)
  procedure KeyDown(Var MSG : TMessage); message WM_KEYDOWN;
  private
    { Déclarations privées }
 
  public
    { Déclarations publiques }
    constructor Create(AOwner: TComponent); override;
 
  published
 
 
  end;
 
var
  popupExtended : TPopUpMenuExtended;
 
 
implementation
 
uses Utilities;
 
constructor TPopUpMenuExtended.Create(AOwner: TComponent);
Begin
    //inherited Create(AOwner);
End;
 
procedure TPopUpMenuExtended.KeyDown(Var MSG : TMessage);
Begin
    x;
End;
 
End.

Merci pour votre aide

[tourlourou]

ne serait-ce pas l'Edit qui aurait le focus d'entrée clavier ?

ou bien pê faut-il pré-sélectionner un des menus du pop-up ?

[anapurna]

salut

les popupmenu fonctionne avec une autre classe nommé TPopupList
c'est elle qui gere les message windows a destination du menupopup
il n'existe pas a proprement parler de wmkeydown pour le popupmenu
les message suivant controle le popupmenu

Code :

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

1
2
3
4
5
6
7
8
 
    WM_COMMAND:
    WM_INITMENUPOPUP:
    WM_MENUSELECT:
    WM_HELP:
    WM_DRAWITEM:
    WM_MEASUREITEM:
    WM_MENUCHAR:

@+ Phil

[ShaiLeTroll]

Comme l'a dit anapurna, il faut refaire la WndProc de la TPopupList dans une classe héritée,

ensuite l'astuce, est de libérer l'objet Menus.PopupList qui est accessible, et d'instancier à la place ta nouvelle classe, et hop tout les popup utiliseront ta classe ...

[lejert]

Ok ... merci ...

Pas aussi simple que je le pensais... lol

Merci a vous je vais regarder à ca ...