Discussion :

[DaveShot]

Bonjour,

j'ai une application qui permet plusieurs fenêtres indépendantes qui apparaissent dans la barre de tache. Cependant, lorsque je créé un nouveau formulaire celui-ci n'est pas en premier plan, je garde le premier formulaire affiché.
J'utilise le code suivant pour permettre ma gestion multi-fenêtres,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure Tfrm2.CreateParams(var Params: TCreateParams);
 
begin
 
  inherited;
 
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
 
  Params.WndParent := GetDesktopWindow;
 
  end;

mais je n'arrive pas à donner le focus à une nouvelle fenêtre malgré

Code :

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

1
2
3
Form := Tfrm2.Create(Application);
Form.show;
Form.SetFocus;

Y-a-t'il y un moyen de donner le focus à tout nouvelle fenêtre ?

Merci pour votre aide.

[Ph. B.]

Bonjour,

j'ai une application qui permet plusieurs fenêtres indépendantes qui apparaissent dans la barre de tache. Cependant, lorsque je créé un nouveau formulaire celui-ci n'est pas en premier plan, je garde le premier formulaire affiché.

Je ne reproduis pas le problème que vous décrivez, mais le fonctionnement souhaité.
Y aurait-il dans la partie votre code non présenté quelques lignes qui interfèreraient ?

[DaveShot]

Bonjour,

merci pour votre réponse.

Je ne vois rien d'autre qui pourrait interférer, j'ai bien la nouvelle fenêtre qui s'ouvre en premier plan, mais de suite elle passe en second plan. Et si j'en ouvre une autre, j'ai le même comportement.

David.

[solilog]

Bonsoir,
As-tu essayé Form.activate ?
solilog

[SergioMaster]

Bonjour,

ce ne serait pas plutôt le BringToFront tout simplement ?

[DaveShot]

Bonjour,

merci pour vos réponse.

Je ne vois pas trop comment utiliser Form.activate pour l'ouverture de ma fenêtre, j'ai l'impression que c'est trop tard par rapport à son affichage.
De plus, avec BringToFront ma nouvelle fenêtre est bien en premier plan, mais dans la même fenêtre que la précédente, et je ne peux pas switcher de l'une à l'autre de façon indépendante.

David.

[DaveShot]

Je pense que le souci vient du DoubleClick sur mon objet, car avec le click simple j'ai le bon comportement.

Je vais investiguer sur ce point.

[ThWilliam]

Bonjour,

Avec ce code (testé sous W7), je n'ai aucun problème.

TForm2 = la fiche formulaire. Elle n'est pas créée automatiquement au lancement du programme.

Initialiser sa propriété FormStyle = fsStayOnTop.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure Tform2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := GetDesktopWindow;
end;
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action:= caFree;
end;

Ajout d'un formulaire à partir de Form1 :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
   Inc(FormNumber); //variable ayant été initialisée à zéro
   with TForm2.Create(Application) do
   begin
     Caption:= 'SubForm' + IntToStr(FormNumber);
     Show;
   end;
end;

Cordialement
Thierry

[DaveShot]

Bonjour,

le problème avec cette propriété c'est que la fiche est bien en premier plan, mais je ne pas pas switcher sur la précédente, la nouvelle reste toujours en premier plan.

David.

[ThWilliam]

Bonsoir.

je ne pas pas switcher sur la précédente, la nouvelle reste toujours en premier plan

Si la précédente est du style StayOnTop, un simple clic la ramène au premier plan.
Si la précédente n'est pas du style StayOnTop, il est évident qu'elle recevra le focus, mais sera cachée en tout ou partie par les autres fenêtres (stayontop).

Thierry