Salut à tous.

Je tente d'écrire une unité qui contiendrait les quelques fonctions élémentaires pour réduire une application dans le systray ...
Jusqu'à maintenant j'arrive à réduire et agrandir mon application, mais par contre impossible d'arriver à capturer un double-clic sur l'icône de l'application réduite.

D'après les nombreuses sources que j'ai trouvé ici et là, il faut utiliser les messages pour faire ce genre de choses.

Le hic, c'est que tous les exemples que j'ai pu tester fonctionnent bien, mais quand je fais un bête copier/coller de la procedure qui est censé gerer les messages, le compilateur ne veux plus en entendre parler (m'enerve celui là )

Voici texto ce que j'ai ecris (toute l'unité en question)
---------------------------------------------------

unit Reduction_SysTray;

interface

uses ShellAPI, Forms, Messages, Windows;

Const
  WM_MONICONE = WM_USER +1;

  procedure AjouterIcone(FenetreConcernee:TForm);
  procedure SupprimerIcone(FenetreConcernee:TForm);
  procedure ReduireFenetre(FenetreConcernee:TForm);
  procedure RestaurerFenetre(FenetreConcernee:TForm);
  procedure WMTrayIconMessage(var Msg: TMessage); message WM_MONICONE;

var
  FenetreApplication:TForm;

implementation

uses Fenetre_Principale;

procedure AjouterIcone(FenetreConcernee:TForm);
var
  Info:TNotifyIconData;
begin
  Info.cbSize           := SizeOf(Info);
  Info.Wnd              := FenetreConcernee.Handle;
  Info.uID              := 1;
  Info.szTip            := 'test';
  Info.hIcon            := Application.Icon.Handle;
  Info.uCallbackMessage := WM_MONICONE;
  Info.uFlags           := NIF_TIP Or NIF_ICON Or NIF_MESSAGE;
  Shell_NotifyIcon(NIM_ADD,@Info);
end;

procedure SupprimerIcone(FenetreConcernee:TForm);
var
  Info:TNotifyIconData;
begin
  Info.cbSize := SizeOf(Info);
  Info.Wnd    := FenetreConcernee.Handle;
  Info.uID    := 1;
  Shell_NotifyIcon(NIM_DELETE,@Info);
end;

procedure ReduireFenetre(FenetreConcernee:TForm);
begin
  FenetreApplication:=FenetreConcernee;
  AjouterIcone(FenetreConcernee);
  ShowWindow(Application.Handle, SW_HIDE);
end;

procedure RestaurerFenetre(FenetreConcernee:TForm);
begin
  ShowWindow(Application.Handle, SW_SHOW);
  Application.Restore;
  SupprimerIcone(FenetreConcernee);
end;

procedure WMTrayIconMessage(var Msg: TMessage);
begin
  if Msg.LParam=WM_LBUTTONDBLCLK then
    RestaurerFenetre(FenetreApplication);
end;

end.
----------------------------------------------------------------

A la compilation, ça coince à la ligne 14 :
> procedure WMTrayIconMessage(var Msg: TMessage); message WM_MONICONE
> [Erreur] Reduction_SysTray.pas(14): Directive inconnue : 'message'

Je vais devenir chèvre avec ces messages ... help

Bonjour

la directive message n'est utilisable qu'avec des méthodes, c'est à dire au sein de la définition d'une classe. Sinon il faut passer par la définition d'une fonction WndProc.

Cordialement.

---

"L'imagination est plus importante que le savoir." Albert Einstein

Ha ... bin ça m'eclaire pas plus que ça
Concretement, qu'est ce qu'il faudrait rajouter à mon code pour que ça marche ?

Comme je l'ai dit précédemment, il faut créer une classe pour pouvoir beneficier de l'utilisation de la directive message. Donc tu crées une class dérivée de TForm par exemple, et tu y integres ton code.

N.B. Les exemples ne manquent pourtant pas sur le site concernant la gestion du systray :
  http://www.delphifr.com/recherche.aspx?r=systray&tr=source (Le premier exemple de la liste contient déjà tout ce que tu cherches à faire)

Cordialement.

---

"L'imagination est plus importante que le savoir." Albert Einstein