Discussion :

[f6dqm1]

Bonjour
Je bute sur un petit problème : Comment faire pour réduire une fenêtre principale sans que les fenêtres enfants se réduisent en même temps ?
Je parle du bouton _ qui se trouve en haut à droite des fenêtres du programme.
Avec ce petit bouton, on réduire chacune des fenêtres enfants séparément mais si on réduit la fenêtre principale, toutes les fenêtres enfants se réduisent et ça me gène dans une application.
C'est peut-être un problème purement "Windows" et pas Delphi ! A moins qu'il y ait une solution software qui résolve cette question.
Gab

[ShaiLeTroll]

Etant un grand partisan du ShowModal, je n'ai jamais ce problème
Lorsque je dois faire un SDI avec plusieurs fenêtres actives, justement la réduction de la fenêtre pour réduire plusieurs fenêtres c'est plutôt pratique (c'est le cas de Delphi en mode Flottant)

Il y a surement une astuce avec SetLongWindow mais sinon, tu crées une MainForm, une fausse, vide (par exemple juste un Notify Icon)
Toutes les autres fenêtres sont des fenêtres secondaires et donc indépendantes
Lorsque tu fermes la dernière fenêtre secondaire, tu forces la fermeture de la MainForm
Je suis justement sur un module qui fonctionne comme cela car c'est un module lancé principalement en ligne de commande et taches planifiées

Code :

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

1
2
  Application.MainFormOnTaskbar := False;
  Application.ShowMainForm := False;

[f6dqm1]

Merci pour la suggestion. Je vais tester ça.
Gab

[fbalien]

Bonjour

une solution que j'utilise
il faut surcharger la procedure CreateParams de la seconde form

Code :

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

1
2
  protected
    procedure CreateParams(var Params: TCreateParams); override;

dans le code il faut mettre ceci

Code :

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

1
2
3
4
5
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := 0;
end;

[ShaiLeTroll]

Très bonne remarque de fbalien

Pour justement, un module qui peut se relancer lui même dans un mode spécial en affichant directement une fenêtre fille sans la MainForm, j'ai écrit ceci

Code :

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

1
2
3
4
5
6
7
8
//---------------------------------------------------------------------------
procedure TModuleLxxxorm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
 
  if not Assigned(Application.MainForm) or not Application.MainForm.Visible then
    Params.WndParent := GetDesktopWindow();
end;