Créer une Form avec sa propre icone dans la barre des tachesRésolu

Question

Bonjour,
Je suis en train de d&#233;velloper une application qui permet l'ouverture d'une infinit&#233; de fen&#234;tres (Form). Ca marche parfaitement, mais le probl&#232;me est que toutes les fen&#234;tres apparaissent seulement dans un seul rectangle au niveau de la barre des t&#226;ches. Et lorsque je ferme la fen&#234;tre principale, toutes les autres se ferment aussi. J'aurai aim&#233; que chaques Form poss&#232;de son propre petit rectangle dans la barre des taches. (Au cas o&#249;. Ce que j'apel la barre des t&#226;ches, c'est ce qui se trouve entre le menu d&#233;marrer et l'heure). Un grand Merci &#224; tout ceux qui veulent bien m'aider :)

Sat83 · Accepted Answer

Peut etre en utilisant le composant CoolTrayIcon?

il se trouve a l'addresse http://subsimple.com/delphi.asp

ekinoxjp · Answer

wow simpas le site :)
m&#234;me si ce n'est pas tout &#224; fait ce que je cherchais, je te remercie pour ce lien car &#231;a pourra m'aider &#224; faire ce que je veux (d'une autre mani&#232;re^^). 

Enfaite je r&#233;alise que je me suis mal exprim&#233; (toutes mes excuses). 

Je voulais comment rajouter un nombre de rectangles &#233;quivalent au nombre de fen&#234;tres (Form) cr&#233;er (avec mon application Delphi) dans la barre des t&#226;ches qui se trouve au millieu de l'&#233;cran tout en bas. 



Apparement sous Delphi, il est impossible de rajouter un rectangle pour chaques Form (=fen&#234;tre) visibles &#224; l'ecran. C'est assez emb&#234;tant d'arriver &#224; retrouver les Form lorsqu'elles n'apparaissent pas en bas et qu'elles sont cach&#233;s par d'autres Forms. Il faut r&#233;duire toutes les fen&#234;tres une &#224; une &#224; la main jusqu'&#224; tomber sur la Form voulue. Bref quand on a dix fen&#234;tres, &#231;a devient vite ing&#233;rable.

Le seul moyen sous Delphi de rajouter un petit rectangle tout en bas, c'est d'executer un autre processus qui poss&#232;de l'autre Form et de faire communiquer les deux applications avec le composant InterAppComm trouv&#233; sur le site que tu viens de me donner (merci ;)) Ca fait tr&#232;s bricolage et au final il y a dix fois plus de ressources consomm&#233;es, mais comme c'est le SEUL moyen avec Delphi (je verse une larme) je vais devoir faire mon application comme &#231;a. 

Merci Sat83 !

cs_Delphiprog · Answer

Et dire que dans les premi&#232;res versions de Delphi ce comportement posait probl&#232;me &#224; plus d'un !
Depuis Delphi 3 (si ma m&#233;moire est bonne) toutes les fen&#234;tres d'une m&#234;me application n'apparaissent plus qu'en un seul endroit sur la barre des t&#226;ches.
Mais il me semble qu'il y a une solution que j'avais donn&#233; sur ce m&#234;me forum. Elle est simple mais je ne me souviens plus de l'astuce. Si tu peux encore patienter un peu, je t'apporte cette solution sur un plateau d'argent 
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

cs_Delphiprog · Answer

Voir : 
How can I add a some forms in Taskbar/Task Manager of MS Windows?
Tout simplement...
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

ekinoxjp · Answer

Mon sauveur! :)
Aaah quel bonheur! Milles merci Delphiprog! ^^

ekinoxjp · Answer

Pour ceux qui comme moi n'ont jamais vu la proc&#233;dure CreateParams (ou qui ont de la peine en Anglais) voici comment faire:

Il suffit simplement de rajouter ce texte avant implementation

procedure CreateParams(var Params: TCreateParams); override; 

Attention &#224; ne pas oublier override; 
si non &#231;a ne prendra pas en compte vos param&#232;tres.

Ensuite apr&#232;s implementation, copier/coller ce code:

procedure TFormChat.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);


  Params.ExStyle := params.ExStyle or WS_Ex_AppWindow;
end;


Voil&#224; le tout est jou&#233;!
Encore merci &#224; Delphiprog pour m'avoir mis sur la piste!

ekinoxjp · Answer

euh non il ne suffit pas de copier et coller la procedure,
il faut juste remplacer le mot TFormChat par le nom de votre Form. Voil&#224;

Créer une Form avec sa propre icone dans la barre des taches

7 réponses

Votre réponse