Discussion :

[jmjmjm]

Bonjour, je souhaite bloquer une fenetreen avant plan mais aussi qu'elle reste active
En gros, lorsqu'on clique en dehors de la fenetre je veux qu'elle reste affiché (ca c'est facile avec la propriété StayOnTop) mais je veux auusi qu'elle reste active (??)

Merci et bonne prog !!

[Cl@udius]

Salut,

J'ai peur de ne pas bien te comprendre, car ce que tu décris est tout simplement une fenêtre modale, comme par exemple une boite de dialogue qui attend une réponse de l'utilisateur.

Un CreateForm suivi d'un ShowModal devrait suffire !

@+

[jmjmjm]

oui le principe c'est ca mais c'est pas pour une simple fenetre c'est pour la fenetre principale de mon application tant que l'application est active, la fenetre ne dois pas pouvoir etre "déselectionnée" et je n'arrive pas a appliquer showModal a Form1 si tu sais comment faire ou si quelqu'un a une autre idée, je suis preneur.
MERCI ET BONNE PROG !!

Edit : en gros je veux lui redonner le focus quand elle le pert !!

[Graffito]

Bonjour,

On peut essayer un timer qui toutes les 500 ms fasse :

Code :

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

1
2
SetactviveWindow(myMainForm.handle) ;
SetForegroundWindow(myMainForm.handle) ;

[jmjmjm]

Ta fonction ne marche pas chez moi, la fenetre ne prend pas le focus l'action qui se produit est un clignotement dans la barre de titre !

[slimjoe]

Bonjour,

On peut essayer un timer qui toutes les 500 ms fasse :

Code :

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

1
2
SetactviveWindow(myMainForm.handle) ;
SetForegroundWindow(myMainForm.handle) ;

As-tu essayé l'événement OnDeactivate de la fiche principale ?
Et pourquoi pas dans le OnActivate de chacune des autres fiches ?

[slimjoe]

Dans l'aide de mon Delphi 7 :

OnDeactivate

Occurs when the form loses focus.

Delphi syntax:

property OnDeactivate: TNotifyEvent;

C++ syntax:

__property Classes::TNotifyEvent OnDeactivate = {read=FOnDeactivate, write=FOnDeactivate, stored
=IsForm};

Description

Use OnDeactivate to perform special processing when the form transitions from being the active form to another form in the same application becoming the active form. If activation goes to another application, this event is not triggered. To determine if another application has become active, Use the TApplication object’s OnDeactivate event.

[jmjmjm]

mon probleme est pas l'endroit ou le placer mais la fonction a utilisé car celle vu plus haut ne permet pas de redonner le focus a la fenetre !!

[denokan]

et avec

Code :

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

1
2
3
4
procedure TForm1.FormDeactivate(Sender: TObject);
begin
  Form1.SetFocus;
end;

[slimjoe]

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormDeactivate(Sender: TObject);
begin
   SetActiveWindow(handle) ;
   SetForegroundWindow(handle) ;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
   TForm2.Create(self).Show;
end;

Je viens de faire le test. J'ai beau cliquer 14 fois sur mon boution, j'ai droit à 14 fiches supplémentaire et ma fiche principale reste toujours au premier plan et a toujours le focus.

[slimjoe]

Le SetFocus; de denokan fonctionne aussi très bien en passant.

[Rayek]

Bonjour,

On peut essayer un timer qui toutes les 500 ms fasse :

Code :

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

1
2
SetactviveWindow(myMainForm.handle) ;
SetForegroundWindow(myMainForm.handle) ;

Il serait peut être plus judicieux de faire remonter d'abord al fenêtre devant, puis après de l'activer et pas l'inverse car je pense qu'on ne peut pas donner le focus à une fenêtre non visible (y a qu'a voir avec delphi quand on donne le focus sur un élément invisible ^^).

Code :

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

1
2
3
4
5
6
 
// Met la fenetre au premier plan
SetForegroundWindow(myMainForm.handle) ;
 
// Active la fenetre
SetactviveWindow(myMainForm.handle) ;

[edit]

The SetActiveWindow function activates a window, but not if the application is in the background. The window will be brought into the foreground (top of Z-Order) if its application is in the foreground when the system activates the window.

[/edit]

[jmjmjm]

MERCI A TOUS
j'ai complété un peu :

Code :

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

1
2
3
4
5
6
7
 
if GetForegroundWindow<>myMainForm.handle then begin
    // Met la fenetre au premier plan
    SetForegroundWindow(myMainForm.handle) ;
    // Active la fenetre
    SetactiveWindow(myMainForm.handle) ;
end;

Ce code placé dans un timer permet de bloquer le focus sur la fenetre principale et la bloque au premier plan !!

[slimjoe]

Peut-être suis-je un peu naïf mais n'est-ce pas un peu inutilement lourd que d'appeller L'API GetForegroundWindow 2 fois par secondes ?

[jmjmjm]

le truc c'est que si tu fais SetForegroundWindow tout de suite tu as une sorte de clignotement de la fenetre alors je prefere tester avant de l'initialiser!!

[jmjmjm]

comment faire pour intercepté les message de l'application car d'apres l'aide lorsque l'on clique en dehors de l'appli c'est l'evenement application.ondeactivate qui change de valeur !! le FormX.ondeactivate ne sert que lorsque l'on change de form mais dans la meme application

[slimjoe]

Et Application.OnDeactivate := FormX.OnDeactivate ne fonctionne pas ? (encore une fois pardonnez ma naïveté)

[jmjmjm]

Et Application.OnDeactivate := FormX.OnDeactivate ne fonctionne pas ? (encore une fois pardonnez ma naïveté)

Je ne comprend pas trop ce que tu veux dire si tu veux dire que Application.onactivate vaut FormX.onactivate c'est faut!!

Si tu veux initialiser application.Ondeactivate avec FormX.ondeactivate ca ne sert a rien c'est l'inverse qu'il faudrait faire et ou le plasser ??

[slimjoe]

Salut!

Je dis ça sans avoir testé alors ça vaut ce que ça vaut.

Sauf que si tu fais dans le OnCreate de ta fiche principale

Code :

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

1
2
 
Application.OnDeactivate := self.OnDeactivate

tu indiques à Delphi que le gestionnaire de l'événement OnDeactivate de l'Application (celui qui est exécuté lorsque l'Application perd le focus) devra être celui qui tu implémenteras dans ta fiche principale. En fait, tu assignes à OnDeactivate de Application la procédure à exécuter lorsque l'événement sera soulevé et à mon avis si cette procédure est la même que celle de la fiche principale, ça devrait répondre à ce que tu as besoin.

Mais j'ai peut-être tors, ça ne serait pas la première fois

[slimjoe]

Tiens, j'ai peut-être mieux

1. Implémente un OnDeactivate sur ta fiche principale
2. Dépose un composant TApplication (il est sous l'onglet Additional)
3. Dans les événements du TApplication, sous OnDeactivate, sélectionne "FormDeactivate" (l'événement de ta fiche)