Discussion :

[J_apprenti]

Salut!
comment je peux empecher une fenetre secondaire de mon proget de se minimiser quand je minimise la fiche principal ?!
pour info j'uttilise CoolTrayIcon et je ne peux pas utiliser Form1.hide.
merci.

[Lung]

Essai un truc comme çà, pour voir :

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
type 
  TForm2 = class(TForm) 
  protected 
    procedure CreateParams(var Params: TCreateParams); override; 
  end; 
 
  {....} 
 
implementation 
 
{....} 
 
procedure TForm2.CreateParams(var Params: TCreateParams); 
begin 
  inherited; 
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW; 
end; 
 
 
 
// To Show a Form in the taskbar anytime: 
 
SetWindowLong(FormX.Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);

[J_apprenti]

merci mr Lung.
alors voici les differents sollutions que j'ai trouvè:

1:
dans form1

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
 
private
 Procedure WMSyscommand(Var msg: TWmSysCommand); message WM_SYSCOMMAND; 
{...}
 
Procedure TForm1.WMSyscommand(Var msg: TWmSysCommand);
Begin
 case (msg.cmdtype and $FFF0) of
 SC_MINIMIZE:
      begin
       ShowWindow( handle, SW_MINIMIZE );
       msg.result := 0;
      end;
 SC_RESTORE:
      begin
        ShowWindow( handle, SW_RESTORE );
        msg.result := 0;
      end;
 else
   inherited;
 end;
end;

2:

dans la 2eme forme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
private
    { Déclarations privées }
    Procedure CreateParams( Var params: TCreateParams ); override;
  {....}
 
 
 
procedure TForm2.CreateParams(var params: TCreateParams);
begin
  inherited CreateParams( params );
  params.ExStyle := params.ExStyle or WS_EX_APPWINDOW;
  params.WndParent := GetDesktopwindow;
end;

mais y'a toujours un probleme avec l'icon dans la barre des taches ..

merci encors.