Discussion :

[bubulemaster]

Bonjour,

j'ai une application qui se met en systray. J'en ai déjà fait et ça marche très bien.
Mais là, sans vraiment comprendre impossible de masquer la fenêtre dans la barrre de tâche.

Le code Application.ShowMainForm := False ne fonctionne pas

J'ai donc essayé

Code :

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

1
2
3
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
ShowWindow(Application.Handle, SW_SHOW);

Ca fonctionne sauf que lorsqu'on réduit on a une petite fenetre en bas à gauche

est-ce que le code :

Code :

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

1
2
3
4
5
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
  GetWindowLong(Application.Handle, GWL_EXSTYLE) and not WS_EX_APPWINDOW
  or WS_EX_TOOLWINDOW);
ShowWindow(Application.Handle, SW_SHOW);

va fonctionner d'après vous ? (oui je viens de trouver le code par hazard sur http://olance.developpez.com/article.../delphi-vista/)

Ce qu'il faudrait c'est dans OnMinimise restaurer le style normal (WS_EX_APPWINDOW ?) de la fenêtre et la cacher

Si quelqu'un a eu le problème qu'il n'hésite pas à le dire.

[bubulemaster]

Après plusieurs test il s'avère de ça vient de la version Entreprise du boulot. Pour contourner le problème voici ce que j'ai fait :

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
 
procedure TFrmMain.FormCreate(Sender: TObject);
begin
    Application.OnMinimize := OnApplicationMinimize ;
 
    ShowWindow(Application.Handle, SW_HIDE);
    SetWindowLong(Application.Handle, GWL_EXSTYLE,
      GetWindowLong(Application.Handle, GWL_EXSTYLE) and not WS_EX_APPWINDOW
      or WS_EX_TOOLWINDOW);
    ShowWindow(Application.Handle, SW_SHOW);
end;
 
procedure TFrmMain.OnApplicationMinimize(Sender: TObject);
begin
    Hide ;
end;