Discussion :

[titiyo]

bonjour,
j'ai un pb que je ne comprend pas
quand je click sur le - de ma fenetre de mon application qui devrait la mettre dans la barre de tache sa me fait comme un reduction et sa ce met au dessus de ma barre des tache en bas a gauche de l'ecran => et je ne voit pas ce que j'ai pu modifier
ps : le pire c'est que si je creer une nouvelle application et que je compile sa ne pose aucun pb
help please je ne voudrait pas tout refaire mon appli

[Henri_13]

Lorsque tu click sur le - , c'est pour réduire pas par iconiser sauf si tu utilises un compo style cooltray, il faut (faut mettre sur true) Iconize to tray

[titiyo]

je suis desoler je n'est rien compris , vraiment desole

par contre je pense que c'est lier que mon appli a plusieyur fenetre car c'est lorsque que jouvre la 1er de l'appli pas de pb , par contre des la deuxieme le fenomene arrive mais je ne vois pas comment regler

[anapurna]

salut

ton appli est de quelle sdi ou mdi

quand tu reduit il faut reduire la fenetre principale
un peu comme L'edi delphi
si tu clique sur l'editeur celui-ci ce reduit si par contre tu reduit
la barre d'outil c'est toute l'application qui ce reduit


@+ Phil

[titiyo]

c'est une appli sdi je croit , j'ai choisit nouvelle application tout simple , mais comment dire au fenetre de reduire la fenete principale et faut t'il le mettre sur toutes les forme ?
oui si vous voulez comment dit au autre forme que lorsque l'on click sur le - des form on active le - de la fenetre principale
merci vraiment de votre aide

[anapurna]

salut

le plus simple et d'intercepter le mesage de reduction et de le
reorienté vers la fenetre principale

Code :

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

 postmessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);

ou plus simplement

Code :

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

Application.Minimize

exemple complet a implementer dans tes fenetre enfant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Maform = class(TFORM)
...
procedure WMSYSCOMMAND (var msg:TWMSysCommand) ; message WM_SYSCOMMAND; 
 ...
end;
... 
procedure MaForm.WMSYSCOMMAND(var msg: TWMSysCommand); 
begin 
  if msg.CmdType=SC_MINIMIZE then 
      Application.Minimize 
   else 
     inherited; 
end;

@+ Phil

[titiyo]

merci sa marche parfaitement

[anapurna]

salut


ne surtout pas oublier le tag RESOLU merci

@+ Phil