Discussion :

[zarbouine]

Bonjour à tous !

j'ai une form (qui permet de faire des recherches et poser des filtres) qui est appelée à l'appui de la touche enter quand l'utilisateur est dans une grille. Elle est déclarée StayOnTop.
Depuis la Form principale de l'application, pas de problème elle reste bien OnTop... même si je retourne dans la form appelante
Mais appelée à partir d'une form secondaire.... elle ne reste pas OnTop.... si je reviens dans la form appelante, elle passe dessous !

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
   if Key = #13 then
  begin
    with frecherche do
    begin
      getcursorpos(position);
      // enregistre la position de la souris -> positionne la fenêtre de recherche
      champ := TJvDBGrid(Sender).Columns[TJvDBGrid(Sender).Col - 1].FieldName;
      // sur quel champ on est dans la grille
      disp := TJvDBGrid(Sender).Columns[TJvDBGrid(Sender).Col - 1]
        .Title.caption; // nom d'affichage de la colonne
      table := TJvDBGrid(Sender).DataSource.DataSet; // sur quel query ?
      frecherche.FormStyle:=fsstayontop;
      Show; // frecherche est stayontop
    end;
  end;

je ne vois pas à côté de quoi je passe... une idée ?

[ShaiLeTroll]

La forme seconde est modale ?
La forme des recherches est instancié à quel moment ? car le HWND_TOPMOST a effet au moment de la création du handle de la fenêtre, ainsi une fenêtre secondaire créée après pourrait supplanterait le Z-Order si elle même est fsStayToTop, j'avoue jouer pas mal sur le BringToFront et SetForegroundWindow car je le fais plus interprocess qu'au sein d'un même programme.

[zarbouine]

La forme seconde est modale ?
La forme des recherches est instancié à quel moment ? car le HWND_TOPMOST a effet au moment de la création du handle de la fenêtre, ainsi une fenêtre secondaire créée après pourrait supplanterait le Z-Order si elle même est fsStayToTop, j'avoue jouer pas mal sur le BringToFront et SetForegroundWindow car je le fais plus interprocess qu'au sein d'un même programme.

oui !

Code :

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

1
2
3
4
5
6
7
 
  Application.Initialize;
  Application.CreateForm(Tfdata, fdata);
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(Tfrecherche, frecherche);
  Application.Run;

Form1 et 2 ne sont pas StayOnTop.
Form1 appelle frecherche.show --> frecherche est bien StayOnTop
Form2 est créée par form1 en modale. Form2 appelle frecherche --> elle n'est plus StayOnTop

C'est quand même bizarre...

[Andnotor]

C'est quand même bizarre...

Oui et non

Oui parce que ce n'est pas le comportement demandé par FormStyle.

Non si on se place au niveau de la gestion Delphi des fiches.

Le but premier d'une fiche modale est d'imposer une action de l'utilisateur en restant au premier plan. Pour se faire, Delphi crée une nouvelle pompe à messages dédiée et pour s'assurer que cette fiche soit bien au premier plan va temporairement désactiver StayOnTop des fiches existantes par l'intermédiaire de Application.NormalizeTopMosts (dans les faits la propriété FormStyle n'est pas modifiée, l'API SetWindowPos est directement invoquée en lui passant HWND_NOTOPMOST). A la sortie de ShowModal, les fiches sont restorées dans leur état initial par Application.RestoreTopMosts.

Résultat, ta fiche de recherche précréée se retrouve modifiée en fiche "normale" et peut se retrouver masquée par une autre.

Tu as dès lors deux possibilités :

1. créer frecherche uniquement lorsque tu en as besoin (soit depuis Form1, soit depuis la fiche modale) ;
2. reforcer HWND_TOPMOST lors de affichage.

Cela dit, il ne me semble pas logique de pouvoir fermer la fiche modale et que celle de recherche reste visible. La première approche est pour moi la meilleure

[ShaiLeTroll]

créer frecherche uniquement lorsque tu en as besoin (soit depuis Form1, soit depuis la fiche modale) ;

Cela dit, il ne me semble pas logique de pouvoir fermer la fiche modale et que celle de recherche reste visible. La première approche est pour moi la meilleure

je dirais même plus bannir CreateForm pour toutes fenêtres secondaires !
Et la suppression de la variable globale aussi.

Pour moi une ShowModal c'est toujours en with Create do try ShowModal finally Free end dans une méthode static Execute comme un TDialog.
Et pour la recherche, j'ai migré une application récemment, idem, une encapsulation du Singleton via des fonctions orientées business plutôt qu'une manipulation de la fenêtre, cela isole le code.

Question bête, c'est un code de reproduction pour le forum, Form1 et Form2 ont je suppose un vrai nom ?

Sinon, j'avais bricolé un anti-modal pour une situation similaire où une fenêtre volante affiché avant devait rester accessible malgré un ShowModal d'une autre fenêtre, application multi-screen type vidéo surveillance.

[zarbouine]

Question bête, c'est un code de reproduction pour le forum, Form1 et Form2 ont je suppose un vrai nom ?

Oui bien sur... pour le reste je ne comprends pas tout (pas encore le niveau) et donc je vais faire au plus simple (la solution proposée par Andnotor) c'est à dire créer la frecherche à la demande...
En tout cas merci de votre attention/aide, on en apprend toujours en vous lisant...même si souvent ça vole un peu haut pour moi
Pat