Déclencher un menu popup via un message Windows
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:
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; |
