Ce code montre tout simplement comment faire pour minimiser une application dans la zone de notification. La fenêtre disparait alors de la barre des tâches et une icone apparait à coté de l'horloge. Si vous cliquez sur cette icone avec le bouton droit, un menu contextuel apparait.
Il existe plusieurs composants qui permettent de gérer ces étapes. Mais comme ce n'est pas compliqué, c'est toujours mieux de le coder soi-même pour une meilleure compatibilité.
Source / Exemple :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ShellApi, StdCtrls;
//numéro du message envoyé à l'application par le système lors q'un événement souris sur l'icone
const wm_AppelMessage=1025+102;
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
Ouvrir1: TMenuItem;
N1: TMenuItem;
Quitter1: TMenuItem;
Memo1: TMemo;
procedure Ouvrir1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Quitter1Click(Sender: TObject);
private
{ Déclarations privées }
procedure Minimiser(Sender:TObject); //appelée lorsque l'on minimise la fenêtre
procedure AjouteIcone(); //ajoute l'icone de la zone de notification
procedure SupprimeIcone; //supprime l'icone de la zone de notification
procedure WMAppelMessage(var msg : TMessage); message wm_AppelMessage; //appelée lors d'un événement souris sur l'icone
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//****************************************************************************
// Crée l'icone dans la zone de notification
//****************************************************************************
procedure TForm1.AjouteIcone();
var
Info:TNotifyIconData;
begin
// cbSize doit contenir la taille de la structure
Info.cbSize := SizeOf(Info);
// Wnd doit contenir le Handle de la fenêtre qui recevra les messages de
// notification d'évènement de la souris
Info.Wnd := Handle;
// uID Numéro d'icone, c'est utile si plusieurs icones sont affichées en
// simultané dans la barre des tâches. Car c'est ce numéro qui permettra
// ensuite de modifier celle que l'on veut.
Info.uID := 1;
// szTip contient le texte de l'info bulle affiché au dessus de l'icone
Info.szTip := 'Exemple de texte';
// hIcon contient le handle de l'icône qui doit être affichée
// Ici nous affichons l'icone de l'application
Info.hIcon := Application.Icon.Handle;
// uCallBackMessage contient le message qui sera retourné à la fenêtre
// donnée par Wnd quand un évènement de souris apparaît sur l'icone
Info.uCallbackMessage := wm_AppelMessage;
// uFlags doit contenir la liste des champs utilisés dans la structure
// parmi les champs szTip,hIcon et uCallBackMessage
Info.uFlags := NIF_TIP Or NIF_ICON Or NIF_MESSAGE;
// Appel de la fonction API ajoutant l'icone
Shell_NotifyIcon(NIM_ADD,@Info);
end;
//****************************************************************************
// Supprime l'icone de la zone de notification
//****************************************************************************
procedure TForm1.SupprimeIcone;
var
Info:TNotifyIconData;
begin
Info.cbSize := SizeOf(Info);
Info.Wnd := Handle;
Info.uID := 1;
Shell_NotifyIcon(NIM_DELETE,@Info);
end;
//****************************************************************************
// Minimise l'application en ajoutant l'icone dans la zone de notification et
// en la supprimant de la barre des tâches
//****************************************************************************
procedure TForm1.Minimiser(Sender:TObject);
begin
AjouteIcone();
ShowWindow(Application.Handle, SW_HIDE); //masque la fenêtre de la barre des tâches
end;
//****************************************************************************
// Fonction appelée lors d'un clic sur l'icone dans la zone de notification
//****************************************************************************
procedure TForm1.WMAppelMessage(var msg : TMessage);
var
Curs:TPoint;
begin
//double clique gauche on ouvre l'application
if msg.LParam=WM_LBUTTONDBLCLK then
Ouvrir1.Click()
else
//Clique droit de la souris on fait apparaitre le menu contextuel
if msg.LParam=Wm_RButtonDown then
begin
SetForegroundWindow(Handle);
GetCursorPos(Curs); //Récupère les coordonnées de la souris
PopupMenu1.Popup(Curs.X,Curs.Y); //Ouvre le menu surgissant à l'emplacement spécfié par les coordonnees de la souris
PostMessage(Handle,WM_NULL,0,0);
end;
end;
//****************************************************************************
// Fait réapparaitre l'application lors du clic sur le bouton "ouvrir" du menu
// contextuel de la zone de notifiation
//****************************************************************************
procedure TForm1.Ouvrir1Click(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_SHOW); //affiche la fenêtre dans la barre des tâches
Application.Restore; // restore la fenêtre
SupprimeIcone(); // supprime l'icone
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//on associe l'action de minimiser l'application à notre fonction
Application.OnMinimize := Minimiser;
end;
//****************************************************************************
// Supprime l'icone de la zone de notification lors de la fermeture
// de l'application. Si l'icone n'existe pas, la fonction ne produit rien
//****************************************************************************
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SupprimeIcone();
end;
//****************************************************************************
// Ferme l'application lors du clic sur le bouton "Quitter" du menu
// contextuel de la zone de notifiation
//****************************************************************************
procedure TForm1.Quitter1Click(Sender: TObject);
begin
close;
end;
end.
Conclusion :
Comme japee me l'a fait remarquer, les fonctions ne sont pas de moi. Je les ai trouvées sur différents tutoriels mais je n'avais pas encore trouvé de code tout fait pour montrer le fonctionnement. De plus, aucun tutoriel ne prévoit que l'application se minimise automatiquement dans la zone de notification.
Maintenant que je connais l'auteur original de la majorité du code : Merci à Nono40
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.