Discussion :

[SLE]

Bonjour,


Avec Delphi2007, j'ai une appli avec un TTrayIcon.
J'ai masqué le bouton de la barre des taches avec

Code :

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

ShowWindow(Application.Handle, SW_HIDE);

Mais dès que je minimise l'appli, le bouton réapparaît.
Comment faire pour qu'il soit invisible même quand l'appli est minimisée, pour que seul l'icone du systray soit visible ?

Merci.

[sjrd]

Le mieux est de supprimer la fenêtre secrète de Delphi. Pour ça tu utilises cette unité :

Code :

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

1
2
3
4
5
6
7
8
9
unit NoSecretWindow;
 
interface
 
implementation
 
initialization
  IsLibrary := True;
end.

Et tu l'ajoutes en tout premier, avant Forms, dans les uses de ton programme.

[Jipété]

Salut !
Je voudrais pas mourir idiot,

Le mieux est de supprimer la fenêtre secrète de Delphi.

c'est quoi, ça : fenêtre secrète ?
Merci,
--
jp

[sjrd]

C'est une fenêtre créée en interne par l'objet Application, qui s'occupe de centraliser les messages, et aussi de présenter à Windows la barre de titre. Si elle n'existe pas, Windows prendra la vraie fenêtre que tu as créée comme fenêtre principale.

Pour la supprimer, on fait croire à TApplication qu'on est dans une DLL.

[Jipété]

Merci !
--
jp

[Jipété]

Bon,
je ne suis pas l'auteur de la question, mais le sujet m'intéresse et j'ai un projet construit un peu pareil ;
dans le .dpr :

Code :

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

Application.ShowMainForm := False;

dans la MainForm, au FormCreate :

Code :

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

MainForm.Visible := False;

au FormShow :

Code :

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

1
2
  ShowWindow(Application.Handle, SW_HIDE); // caché dans barre des tâches
  SetForegroundWindow(Application.Handle);

et enfin au clic gauche sur la petite icône (un coup j'te vois un coup j'te vois pas) :

Code :

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

1
2
3
case Msg.LParam of
    WM_LBUTTONDOWN :  MainForm.Visible := not MainForm.Visible;
    ...

Et donc, après avoir scrupuleusement suivi les instructions concernant cette fenêtre secrète, ben c'est pareil, , au minimize le bouton apparaît dans la barre des tâches.

Une idée (autre que mettre biMinimize à False ) ?
--
jp

[SLE]

Oui j'ai essayé aussi mais ça ne change RIEN !
Le seul moyen que j'ai trouvé est d'utiliser un TNotifyIcon au lieu de TTrayIcon.

@+

[Jipété]

Salut !

Le seul moyen que j'ai trouvé est d'utiliser un TNotifyIcon au lieu de TTrayIcon.

Ah, je crois qu'un ch'tit bout de code serait le bienvenu, là,

Merci,
--
jp

[SLE]

Un exemple de code ici

[Jipété]

Salut,

Et merci de ta réponse.
Le seul souci c'est que tu écris que tu t'en es sorti avec TNofifyIcon au lieu de TTrayIcon, et que le lien que tu postes pointe sur un TTrayIcon...
Quelque chose m'échappe, là,
--
jp

[SLE]

Ce n'est pas parce que la classe s'appelle TTrayIcon qu'il s'agit du compo TrayIcon.

Sinon va voir aussi ici