Discussion :

[Herk77]

Salut,
Je voudrais faire une application qui ne s'affiche pas dans la barre des tâches, mais plutôt avec un icône dans le systray (là où y a l'heure dans la barre des tâches ). Quelqu'un a-t-il une idée ?

[TicTacToe]

un petit tour dans la

plus précisément ici pourrait t'aider je pense

[Herk77]

J'ai déjà regarder la FAQ
Mettre un icon dans le systray c'est la partie facile.
Le problème c'est d'avoir une appli invisible dans la barre des tâches et qui le reste (invisible ), même si on a des forms filles.

[Cl@udius]

Salut,

Si ton appli ne possède pas de bouton 'Réduire' et 'Agrandir' et qu'elle ne s'affiche pas maximisée, tu peux ajouter ceci dans le OnCreate de la form principale:

Code :

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

1
2
 
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

@+

[Herk77]

Pour clarifier mes propos voici mon code :

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    FormFille: TForm2;
    procedure AppMinimize(Sender: TObject);
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AppMinimize(Sender: TObject);
begin
  Visible := False;
  FormFille.Show;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := AppMinimize;
  FormFille := TForm2.Create(Self);
  FormFille.Hide;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle,SW_HIDE);
  SetWindowLong(application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
  ShowWindow(application.Handle, SW_SHOW);
end;
 
end.

Si on enlève le

Code :

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

FormFille.Show

ça fonctionne bien (trop bien même ) : quand on réduit la form elle est complètement invisible (ni barre des tâches, ni petit bout de fenêtre reduite sur le bureau, du coup on y a plus accès ), mais si on veut afficher la form fille paf ma form principale apparaît en tout petit sur le bureau.

Evidemment, j'ai pas encore mis l'icone dans le systray.
Avant de me lancer dans des grands projets je voudrais savoir si c'est possible de faire ce que je veux faire.

[Herk77]

Oups, j'ai oublié : il faut bien sûr ajouter au projet une fiche TForm2 dans l'unité Unit2

[Jipété]

Yop !

quand on réduit la form elle est complètement invisible

Euh, pas chez moi (bête copier/coller du code posté + assignation des évènements) : ça me colle une petite barre de titre juste au dessus du bouton Démarrer (w2K sp4, D7 pe).
Je crois que tu devrais t'engrainer avec cette histoire de "petite icône" d'abord, et on verra l'histoire de la formfille après.

Mes 2 cts,
--
jp

[Herk77]

Euh, pas chez moi (bête copier/coller du code posté + assignation des évènements) : ça me colle une petite barre de titre juste au dessus du bouton Démarrer (w2K sp4, D7 pe).
jp

As tu enlevé le "FormFille.Show;" dans AppMinimize ?

[Jipété]

As tu enlevé le "FormFille.Show;" dans AppMinimize ?

Non, j'avais zappé ce point,
Effectivement, en l'enlevant y a plus rien... et donc t'es mal !
et comme je le disais, je crois que tu devrais t'engrainer avec cette histoire de "petite icône" d'abord.
--
jp