Discussion :

[Papy214]

Bonjour tout le monde,

Je travaille sur une application en XE7 sous Firemonkey. Cette précision est là uniquement pour indiquer que je ne peux pas utiliser de composant TTrayIcon.
J'ai donc implémenter une gestion classique de trayicon en utilisant les messages Windows (avec compilation conditionnelle évidemment).
Tout fonctionne bien à un détail près. Au premier appel, mon popup menu apparait bien au premier plan.
Mais ensuite, quoique je fasse, si j'ai une application ouverte sur le bureau, le menu "apparait" (si on peut dire) en arrière-plan sur le bureau.
Ce que je fais me parait pourtant du plus classique et je commence à tourner en rond sur ce "détail".

Une idée du pourquoi du comment ?

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
46
47
48
49
50
51
 
{$IFDEF MSWINDOWS}
var
  OldWindowProc: Pointer = nil;
  NewWindowProc: Pointer = nil;
 
function NewWndProc(hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var Mess : TMessage;
begin
  if hwnd = FormMain.WinHandle.Wnd then
  begin
     case uMsg of
      WM_ICONRESPONSE:
      begin
        Mess.Msg    := uMsg;
        Mess.WParam := wParam;
        Mess.lParam := lParam;
        Mess.Result := 0;
        FormMain.Dispatch(Mess);
        Result := 0;
      end
      else
      Result := CallWindowProc(OldWindowProc, hwnd, uMsg, wParam, lParam);
     end;
  end
  else
    Result := CallWindowProc(OldWindowProc, hwnd, uMsg, wParam, lParam);
end;
{$ENDIF}
 
...
 
{$IFDEF MSWINDOWS}
procedure TFormMain.IconResponse(var Msg: TMessage);
var
  pt: TPoint;
begin
  case Msg.lParam of
    WM_LBUTTONDOWN:
    begin
      FormMain.WindowState := System.UITypes.TWindowState.wsNormal;
      FormMain.Show;
    end;
    WM_RBUTTONDOWN:
    begin
      GetCursorPos(pt);
      PopupMenu1.Popup(pt.x, pt.y);
    end;
  end;
end;
{$ENDIF}

*****************

un peu plus de précision :
Je lance l'application depuis Delphi.
La trayicon fonctionne plusieurs fois d'affilée tant qu'aucune autre application n'a pris le focus sur Windows.
Si je je clique (et rien d'autre) sur une application visible sur le bureau (par exemple dans l'IDE) et que je reteste ma trayicon, c'est là que ça ne fonctionne plus.

[ShaiLeTroll]

A l'époque de D6, j'ai aussi un appel de popup

Voici un extrait du code, le commentaire n'est pas très explicite, je pense que cela indiquait une prise de focus d'une fenêtre non visible ! ???

Code :

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

1
2
3
4
5
6
7
8
9
10
...
  // NotifyPopup est le popup lors du clic sur la petite icone
  if (Msg.LParam = WM_RBUTTONDOWN)  then
  begin
     if GetCursorPos(PM) then
     begin
        SetForegroundWindow(Handle); // Jamais apparent 
        NotifyPopup.Popup(PM.x, PM.y);
     end;
...

J'ai remarqué en XE2 que le mode Debug modifie subtilement la gestion du focus d'une application débuggée qui semble avoir plus de difficulté à être au premier plan (comme si Delphi tentait de lui voler la vedette en particulier lors d'un point d'arrêt)
Cela en VCL, d'ailleurs, le MainFormOnTaskBar influence aussi ce genre de comportement

En FMX, cela doit être différent.
D'ailleurs la MainForm c'est la fenêtre qui contient le Popup
Evite la variable FormMain, utilise Self dans IconResponse, pour le callback, difficile de faire autrement avec FormMain !

Dans TOUS mes NotifyIcon, je séparais la fenêtre invisible qui contenait le Popup et la fenêtre affiché à l'écran
As-tu essayé de créer une fenêtre secondaire que tu affiches ou caches selon les actions utilisateurs ?
Cela évitera de faire un Hide sur la fenêtre qui contient le Popup, cela peut nuire au Focus

[Barbibulle]

J'ai une question de novice (je n'utilise pas FMX) mais pourquoi vous ne pouvez pas utiliser TTrayIcon (étant donné que ce n'est pas un composant visuel de la form) ?

Effectivement je comprend qu'on ne puisse déposer sur une fiche fmx un composant VCL mais n'est il pas possible d'instancier (conditionnellement) sur le oncreate de la fiche le composant TTrayIcon ?

[Barbibulle]

Bon la curiosité étant plus forte, je me répond à moi même

J'ai créé une application FMX de type entête/pied :

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
unit HeaderFooterTemplate;
 
interface
 
uses
{$IFDEF MSWINDOWS}
  vcl.ExtCtrls, {$ENDIF}
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls;
 
type
  THeaderFooterForm = class(TForm)
    Header: TToolBar;
    Footer: TToolBar;
    HeaderLabel: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    {$IFDEF MSWINDOWS}procedure TrayIcon1DblClick(Sender: TObject);{$ENDIF}
  private
    {$IFDEF MSWINDOWS}TrayIcon1 : TTrayIcon;{$ENDIF}
  public
    { Public declarations }
  end;
 
var
  HeaderFooterForm: THeaderFooterForm;
 
implementation
 
{$R *.fmx}
 
 
 
procedure THeaderFooterForm.FormCreate(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
   TrayIcon1 := TTrayIcon.Create(self);
{$ENDIF}
end;
 
procedure THeaderFooterForm.FormDestroy(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
   TrayIcon1.Free;
{$ENDIF}
end;
 
procedure THeaderFooterForm.FormShow(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
  TrayIcon1.Hint := 'Ca fonctionne !';
  TrayIcon1.OnDblClick := TrayIcon1DblClick;
  TrayIcon1.Visible := True;
 
{$ENDIF}
end;
{$IFDEF MSWINDOWS}
procedure THeaderFooterForm.TrayIcon1DblClick(Sender: TObject);
begin
  // double clic
  TrayIcon1.Visible := False;
end;
{$ENDIF}
end.

Elle fonctionne correctement, j ai bien le trayicon et quand je doubleclic dessus il disparaît bien.

[Papy214]

J'ai une question de novice (je n'utilise pas FMX) mais pourquoi vous ne pouvez pas utiliser TTrayIcon (étant donné que ce n'est pas un composant visuel de la form) ?

Effectivement je comprend qu'on ne puisse déposer sur une fiche fmx un composant VCL mais n'est il pas possible d'instancier (conditionnellement) sur le oncreate de la fiche le composant TTrayIcon ?

En général, je n'aime pas trop mélanger les choux et les carottes mais ça pourrait être une solution.
Là, il faut aussi gérer la création complète du popupmenu qui n'est pas lui aussi du même type en VCL et en FMX.
Je pensais m'en tirer à meilleur compte au design.
Comme tout bon programmeur, je suis fainéant

[Papy214]

A l'époque de D6, j'ai aussi un appel de popup

Code :

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

1
2
3
4
5
6
7
8
9
10
...
  // NotifyPopup est le popup lors du clic sur la petite icone
  if (Msg.LParam = WM_RBUTTONDOWN)  then
  begin
     if GetCursorPos(PM) then
     begin
        SetForegroundWindow(Handle); // Jamais apparent 
        NotifyPopup.Popup(PM.x, PM.y);
     end;
...

Le SetForegroundWindow(Handle); apporte du mieux mais affiche l'application en même temps que le popupmenu.

Quand tu dis

je séparais la fenêtre invisible qui contenait le Popup

tu parles uniquement du composant TPopupmenu ou de la gestion complète de windowProc et TrayIconData en plus ??

[Papy214]

Bon la curiosité étant plus forte, je me répond à moi même

J'ai créé une application FMX de type entête/pied :

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
unit HeaderFooterTemplate;
 
interface
 
uses
{$IFDEF MSWINDOWS}
  vcl.ExtCtrls, {$ENDIF}
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls;
 
 
procedure THeaderFooterForm.FormCreate(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
   TrayIcon1 := TTrayIcon.Create(self);
{$ENDIF}
end;
 
procedure THeaderFooterForm.FormDestroy(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
   TrayIcon1.Free;
{$ENDIF}
end;
 
end.

Elle fonctionne correctement, j ai bien le trayicon et quand je doubleclic dessus il disparaît bien.

Oui, ça fonctionne, c'est vrai.

Je viens de tenter le coup mais en rajoutant vcl.ExtCtrls , Delphi râle (en premeir) sur une propriété inexistante dans le MuiltiResBitmap de mon TImage présent sur la TForm.
Évidemment puisque ça n'existe pas en vcl et qu'il le prend dans cette librairie.
Si je règle ça, ça va sans doute créer une autre incohérence.
Bref, s'il faut faire des ajustements un peu partout en position de uses, en adaptation diverses, ça commence à couter plus cher que ça ne rapporte.

Si le client se plaint, à défaut de trouver une solution simple, j'aviserai.

[Barbibulle]

Effectivement, ce n'est pas terrible.
Il va du coup chercher le composant TImage dans la VCL au lieu FMX. Ce qui oblige à déclarer FMX.Objects dans les uses juste après VCL.ExtCtrl


J'ai modifié mon code pour voir la gestion du menupopup.

Effectivement il faut utiliser celui de la VCL (et donc le créer à la volée) mais on peut utiliser les actions du composant FMX

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
unit HeaderFooterTemplate;
 
interface
 
uses
{$IFDEF MSWINDOWS}
  vcl.ExtCtrls, vcl.Menus, FMX.Objects, {$ENDIF}
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  System.Actions, FMX.ActnList;
 
type
  THeaderFooterForm = class(TForm)
    Header: TToolBar;
    Footer: TToolBar;
    HeaderLabel: TLabel;
    ActionList1: TActionList;
    Action1: TAction;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    {$IFDEF MSWINDOWS}procedure TrayIcon1DblClick(Sender: TObject);  {$ENDIF}
    procedure Action1Execute(Sender: TObject);
 
  private
    {$IFDEF MSWINDOWS}TrayIcon1 : TTrayIcon;
                      MonPopup : TPopupMenu;
                      MenuItem : TMenuItem;
    {$ENDIF}
  public
    { Public declarations }
  end;
 
var
  HeaderFooterForm: THeaderFooterForm;
 
implementation
 
{$R *.fmx}
 
 
 
procedure THeaderFooterForm.Action1Execute(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
  TrayIcon1.Hint := 'Action 1 !';
{$ENDIF}
end;
 
 
 
procedure THeaderFooterForm.FormCreate(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
   TrayIcon1 := TTrayIcon.Create(self);
   MonPopup  := vcl.Menus.TPopupMenu.Create(self);
   MenuItem  := vcl.Menus.TMenuItem.Create(self);
{$ENDIF}
end;
 
procedure THeaderFooterForm.FormDestroy(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
   TrayIcon1.Free;
   MonPopup.Free;
{$ENDIF}
end;
 
procedure THeaderFooterForm.FormShow(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
  MenuItem.Caption := Action1.Text;
  MenuItem.Action  := Action1;
  MonPopup.Items.Add(MenuItem);
 
  TrayIcon1.PopupMenu :=  MonPopup;
  TrayIcon1.Hint := 'Ca fonctionne !';
  TrayIcon1.OnDblClick := TrayIcon1DblClick;
  TrayIcon1.Visible := True;
 
{$ENDIF}
end;
{$IFDEF MSWINDOWS}
procedure THeaderFooterForm.TrayIcon1DblClick(Sender: TObject);
begin
  // double clic
  TrayIcon1.Visible := False;
end;
{$ENDIF}
end.

C'est vrai qu'on mélange les choux et les carottes mais en même temps en faisant des {$IFDEF MSWINDOWS} on fait également du mélange.

Le plus ennuyeux c'est effectivement la maîtrise des portés des uses.

[Papy214]

Je prendrai surement cette solution si il y a une remontée du client.

Il faudra quand même que je vois si ça résout mon problème d'affichage du popupmenu en arrière-plan, sinon, ça ne servira pas à grand-chose.

[Papy214]

J'ai finalement été curieux moi aussi.
Solution testée et approuvée !
Le menu s'affiche bien en premier plan.

Merci