Delphi: Afficher la fenêtre sans activation

J'ai du mal à afficher une deuxième forme au-dessus de la principale forme sans perdre le focus.

J'ai essayé ShowWindow(second.handle, SW_SHOWNOACTIVATE), mais la mainform perd le focus.
Si j'ai mis Visible := false sur la deuxième fenêtre, l'appel à ShowWindow ne pas activer la deuxième forme, mais windows est vide lorsque vous le montre...

Quelqu'un a une bonne recette pour cela?

Mise à JOUR: Ce que j'essaie de faire, c'est de montrer un notify-fenêtre à un événement donné. Il est crucial que le formulaire principal ne pas perdre le focus à tout moment.

Hum... Un de mes montages est parti... je suppose que SI certains avaient des problèmes plus tôt...?

InformationsquelleAutor Vegar | 2009-03-31

28

Il y a quelque chose de mal avec votre code.

J'ai testé ce code, il fonctionne:
```
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);
  Form2.Visible := True;
end;
```
Veillez à utiliser Visible, pas Show ! Sinon ça va remplacer le SW_SHOWNOACTIVATE.
- Je suis désolé, mais c'est toujours activé 🙁
- J'ai modifié ma réponse et testé 🙂
- Wow, c'est incroyable 🙂 Les astuces semble être de laisser visible faux au moment de la conception, et de l'activer après l'appel à showwindow( ). Merci!
- Merveilleux. J'ai tout essayé pour obtenir que cela fonctionne pour moi, sauf le réglage du Visible drapeau. Elle a également permis de corriger le rendu à l'écran et de le repositionner avant l'affichage problème que j'ai eu. Une de moi 🙂
- Juste dans le besoin pour un tel exemple 🙂
- Cela a fonctionné parfaitement pour moi lorsqu'il est utilisé conjointement avec Marius en réponse à assurer le formulaire figurait sur le dessus. Merci à tous!
InformationsquelleAutor Daniel Rikowski
2

Vous pouvez afficher la fenêtre (non modale) et réinitialiser le focus à la mainwindow.
```
procedure TMainForm.ButtonClick(Sender: TObject);
begin
  OtherForm.Show;
  SetFocus;
end;
```
Testé sur 2006.

Cela ne veut pas montrer l'autre forme sur le dessus. Mais il est très contre-intuitif d'avoir une fenêtre sur le dessus qui n'a pas le focus.
- Mais ce qui serait suffisant pour déclencher des événements et datastorage etc, et je ne veux pas que...
- cela ne fonctionne pas, dans diverses circonstances, par exemple si vous travaillez (disons de l'édition de texte) dans un formulaire enfant du formulaire principal et la principale forme de popup notification. vous perdez tous les caractères, vous êtes en train de taper plus le focus à la fenêtre principale ne permet pas de définir le focus à l'original du formulaire enfant vous étiez dans l'édition. Ce problème m'a hanté pendant un long moment jusqu'à ce que j'ai trouvé le DR est simple (j'aurais pensé qu') fix.
InformationsquelleAutor Toon Krijthe
1

J'ai utilisé dans le passé
```
SetWindowPos(WindowHandle, HWND_TOP, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOMOVE);
```
Je n'ai pas testé avec les dernières versions de Delphi bien que...

InformationsquelleAutor Marius
1

Si possible, vous devriez étudiés à l'aide d'une sorte de pointe de l'outil de la fenêtre pour afficher les informations de notification. Un outil de pointe ne sera pas voler le focus de vous de la fenêtre principale lorsqu'elle est affichée ou lorsqu'un utilisateur clique dessus. Une forme régulière aura une bordure par défaut et si l'utilisateur clique sur cette frontière, votre formulaire principal va perdre le focus.

Voici le code de base pour ce faire. La pointe disparaît lorsque free est appelé; cependant, vous feriez mieux de réglage d'un minuteur de veille.
```
with THintWindow.Create(nil) do
  try
    ActivateHint(MyRect, 'My Notification');
    Sleep(DisplayTime);
  finally
    Free;
  end
```
- C'est peut-être la façon la plus simple d'y aller, mais j'aurais pour personnaliser le hintwindow montrer plus qu'un simple texte...
InformationsquelleAutor Lawrence Barsanti

Vous êtes ici:

  // you have set your 2nd form as non resizable, without border nor title etc...
  Form2.Enabled := False; // prevent the 2nd form to grab focus even when clicked
  SetWindowPos(Form2.Handle, HWND_TOP, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOMOVE);
  // be sure to hide it automatically when done as it is disabled...

Cela rend visible sans réglage de la Forme Visible?

InformationsquelleAutor François

1

Je l'ai fait dans le passé, mais je n'ai pas le code car il était propietary en cours d'emploi (désolé).

Si je me souviens bien, ce que j'ai fait:
1. De classe client Un appel d'une procédure (ou fonction) qui n'appartient à aucune classe (traditionnel Pascal méthode).
2. À partir de cette méthode, appeler une méthode dans une classe B qui n'héritent pas de TForm
3. De la méthode B, créez une instance de la fenêtre formulaire de P, mais avec aucun parent ou du titulaire; et appeler une méthode dans l'instance.
4. À partir de la méthode dite de l'instance, spectacle lui-même.
Le code (de l'étape 3) pourrait aller quelque chose comme ceci:
```
var p: TPopupForm;
begin
  p := TPopupForm.Create(nil);
  p.ShowWindow;
  p.Release;
end;
```
Je suis désolé si cela ne fonctionne pas, je n'ai pas de Delphi trop.

InformationsquelleAutor eKek0
0

Daniels code fonctionne jusqu'à ...
```
ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);
Form2.Visible := True;
```
Jusqu'à ce que votre deuxième forme est créé dynamiquement. Puis votre deuxième forme est situé à la position 0,0 à défaut de la largeur et de la hauteur.

Pour un court instant lorsque ShowWindow est exécuté, vous verrez la deuxième forme sur l'écran, en train de disparaître lors de la prochaine ligne est exécutée.

Je suis en utilisant le code pour une superposition transparente forme qui est créé dyamically. Le code suivant est une combinaison des réponses données et des lieux de la deuxième forme sans l'activation du formulaire parent.
```
SetWindowPos(Form2.Handle, HWND_TOP, Left, Top, Width, Height, SWP_NOACTIVATE);
Form2.Visible := True;
```
InformationsquelleAutor Erik Virtel

Vous devez vous connecter pour publier un commentaire.