[Lazarus] Iconisation de programme

L'executable créé par lazarus par défaut contient en fait deux fenetres...

Une fenetre du projet invisible, de style popup qui est placée en 0,0 et qui fait 0 pixels de large par 0 pixel de haut.

La fenetre que tu définis dans l'IDE...

Lors de la minimisation de l'appli, l'exe met ta fenetre en bas à gauche, puis minimise la fenetre cachée...

Pour t'en convaincre, voici un moyen de 'voir' la fenetre cachée (sous windows):
Code:

1 2 3 4 5 6 7 procedure TForm1.Button1Click(Sender: TObject); var HandleOfHiddenWindow : HWND; begin HandleOfHiddenWindow := FindWindow(NIL, PChar('project1')); setwindowpos(HandleOfHiddenWindow,-1,0,0,100,100,$40); end;
Je commance par chercher la fenetre en connaissant son titre, puis je lui donne une taille de 100*100
le parametre -1 signifie HWND_TOPMOST et $40 remplace SWP_SHOWWINDOW

Un test rapide montre que l'utilisation de la commande :
Application.minimize reduit en une fois le tout, mais depuis la position de la fenetre principale (normalement cachée).

Setwindowpos permettant de deplacer une fenetre, une solution pour eviter ce bug visuel sous windows est de touver cette fenetre, la déplacer à chaque déplacement de notre form, pour qu'elle reste derrière, et utiliser la commande Application.minimize lorsqu'on veut reduire notre fenetre.

Ce qui peu etre ecrit ainsi :
Code:

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 49 50 51 52 53 54 55 56 unit Unit1; {$mode delphi}{$H+} interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, windows; type { TForm1 } TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); // fonction personnalisée lors du deplacement de la fenetre procedure WMMOVE (var Msg : TMessage); message WM_MOVE; private { private declarations } public { public declarations } end; var Form1: TForm1; HandleOfHiddenWindow : HWND; implementation { TForm1 } // A la creation de l'appli, on cherche le handle de la fenetre procedure TForm1.FormCreate(Sender: TObject); begin HandleOfHiddenWindow := FindWindow(NIL, PChar('project1')); end; // Quand on a bougé notre fenetre, on bouge l'autre procedure TForm1.WMMOVE (var Msg : TMessage); begin setwindowpos(HandleOfHiddenWindow,-1,msg.lparamlo,msg.lparamhi,0,0,$40); inherited; end; // Voilà une reduction propre.. procedure TForm1.Button1Click(Sender: TObject); begin Application.minimize; end; initialization {$I unit1.lrs} end.
Il faudrait pour faire mieux, intercepter la reduction de la fenêtre via le sysmenu, ce que je n'ai pas reussi à faire ce soir... Si quelqu'un se tente de chercher...

Bonne programmation

Clandestino