Discussion :

[bvsud]

Bonjour à tous

Je voudrais déclencher un menu Popup automatiquement, juste après le OnActivate de la form. Je l'ai placé sur un bouton, puis directement associé à la form.

Mais comment le déclencher sans intervention de la souris ?

Bon. Là, j'arrive à ceci :

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
42
43
44
45
 
Const
  VK_RBUTTON = $2;
 
var
  Form1: TForm1;
  Handle_App : HWND;
  Msg_Souris : TMessage;
 
 
 
procedure Ouverture;  // Appelée à l'événement OnActivate de la fenêtre
Var   i : integer;
 
begin
        Handle_App := Application.Handle;
 
        Initialiser_Variables;
 
        i := VK_RBUTTON;
        Msg_Souris.Msg := i;
        Screen.ActiveForm.Broadcast(Msg_Souris);  // Mais ça ne déclenche pas le popup
 
end;
 
 
procedure TForm1.FormActivate(Sender: TObject);
begin
        Ouverture;
end;
 
 
 
procedure Quitter;
begin
        Application.Terminate;
end;
 
 
 
 
procedure TForm1.AdvPopupMenu1Close(Sender: TObject);
begin
      Quitter;  // Ca, ca fonctionne.
end;

[anapurna]

salut

Code :

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

1
2
 
  MonPopupMenu.Popup (MonX,MonY);

[bvsud]

Purée !

C'était pourtant simple... Je pense toujours compliqué

Merci