Discussion :

[Invité]

Bonjour.
Je connais le 'OnDeactivate' (qu'au passage il faut déclarer dans une routine d'initialisation, et non dans les évènements de la fiche principale). Est-il possible de "bricoler" pour que la fiche principale garde toujours le focus et empêcher justement le 'Deactivate' ? Bref une propriété (ou une instruction "miracle" dans le 'OnDeactivate') qui empêcherait la perte du focus ou le rendrait immédiatement ; il existe bien le 'FsStayOnTop', alors pourquoi pas l'équivalent pour le focus ?
Merci d'avance ...

[bjl]

Bonjour,

peut être en héritant le wndproc de la manière suivante (je n'ai pas testé n'ayant pas Delphi sur ce poste)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
protected
  procedure WndProc(var Message: TMessage); override;
...
 
procedure Tform1.WndProc(var Message: TMessage); 
Begin
  if Message.Msg = WM_KILLFOCUS then 
    Message.Msg  :=0;
inherited WndProc( Message);
End;

[tourlourou]

N'est-ce pas la spécificité d'une fiche modale de ne pas perdre le focus ?

[Invité]

Bonjour.
Il y a deux choses que je ne "capte" pas :
1) Je n'ai jamais entendu qu'une fiche était modale par elle-même, j'ai toujours entendu qu'en fait elle était affichée de manière modale (ShowModal) à partir d'une autre (mode "popup"). Donc cela commence à avoir des allures d'"usine à gaz"
2) Apparemment une telle fiche "B" garderait le focus à L'INTERIEUR DE L'APPLICATION, empêchant l'utilisateur de travailler par exemple sur la fiche de départ "A" (qui a affiché "B") avant d'avoir fermé "B" ... Mais cela ne signifierait pas que l'APPLICATION elle-même garderait le focus sur le bureau de Windows (je ne sais pas si j'explique bien ce que je veux dire) .
Merci ...

[tourlourou]

Tu as dans la FAQ : Comment remettre son application en avant plan ?
Ce code peut-il être déclenché dans le OnDeActivate ou lors d'un WM_KILLFOCUS, selon la proposition de bjl ?

[Invité]

Re-bonjour.
Ne pas confondre focus et FormStyle ! J'ai essayé le code de BJL dans mon unité, sans succès ; en fait je ne voyais pas comment "l'intégrer" ; soit j'avais des erreurs de compilation, soit le "système" ne fonctionnait pas ! Au passage ma fiche reste toujours au premier plan (sous W2000) grâce à la valeur FsStayOnTop affectée à la propriété FormStyle de la fiche principale (il n'y en qu'une, au passage) lors de la création du projet. Cela pousse la "perversion" jusqu'au phénomène suivant : lors du développement de l'appli, il m'arrivait d'avoir des msg d'erreur sous forme de pop-ups ... avec le bouton OK derrière ma fiche (Bien entendu cela se produisait lors de l'exécution "autonome" du projet, je n'aime d'ailleurs pas exécuter sous Delphi, question de choix personnel). Et comme de plus quelques autres propriétés bloquent la fiche au centre de l'écran ... Bref, ne restait que la "prise des 3 doigts" et l'arrêt de la tâche !
Merci quand même, j'arrête de "piocher" dans ce sens et me contenterai de mon "Application.OnDeactivate:= ..." ! Fin du topic