Discussion :

[kase74]

Bonjour, mon petit souci du jour commence a m'enerver :

J'ai surcharger la classe TForm pour avoir des fenetres securisees TFormSecurisee, avec acces par mot de passe, et timer qui redemande le mot de passe au bout de X secondes d'inactivite.

J'ai surcharge les evenements standard TForm.Activate et TForm.Deactivate pour faire diverses operations : par exemple :

Code :

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

1
2
3
4
5
 
TFormSecurisee.Activate
begin
  // Je redemande le mot de passe
end;

Seulement : Je me rends compte que Activate n'est appelee QUE lors du premier affichage de ma fenetre, FenetreSecurisee.ShowModal. Il n'est plus appele par la suite, notamment lorsque j'ouvre une autre fenetre et que je reviens sur la premiere.
Quant a Deactivate, lui n'est carrement jamais appele !!!
alors qu'elle perds le focus lorsque j'ouvre une autre fenetre !!!

Est ce du au fait que mes fenetres sont modales ?
J'ai essaye avec des fenetre MDI, mais ca ne me convient pas !
Alors comment faire ?

Merci d'avance ;o)

PS : J'ai mis ma config dans la signature, mais elle ne s'affiche pas !
Donc je bosse avec Delphi 6 Entreprise dans l'envirronement CLX.

[Guigui_]

Ca a l'air d'être du Delphi, je déplace dans le bon forum

[kase74]

Euh oui, j'ai du faire une erreur quelque part, desole !
Merci de l'avoir remis sur le bon forum !

[MD Software]

Tes évènements sont coincés parce que tu travailles en modal. Surcharge ShowModal.

[kase74]

Je confirme, meme l'evenement Ondeactivate de la classe TForm ne se declenche jamais : ni a la perte du focus au profit d'une autre fenetre, ni lors de sa fermeture !!!

N'ai je pas mis la le doigt sur un bug Delphi ?

Je rappelle que je travail avec la CLX, et je n'en suis pas a ma premiere deception !

[MD Software]

Je confirme, meme l'evenement Ondeactivate de la classe TForm ne se declenche jamais : ni a la perte du focus au profit d'une autre fenetre, ni lors de sa fermeture !!!

Mais si. Tu n'a qu'à faire un essai :
Deux fiches, un bouton sur la première
L'évènement du bouton c'est Form2.Show;
Tu codes les évènements onActivate et onDeactivate de ta form2.

Exécute. Et tu vas voir, qu'en non modal, les évènements se déclenchent.

[kase74]

Merci MD pour ta reponse.

Question : Pourquoi le fait d'etre en modal m'interdit d'implementer Ondeactivate ?

Surcharger ShowModal, OK, mais ...

Code :

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

1
2
3
4
TFenetreSecurisee.ShowModal : integer;
  Self.activate;
  inherited;
  Self.deactivate;

D'accord, ca resoud le probleme pour l'ouverture et la fermeture de la fenetre, mais pas quand elle perd le focus au profit d'une autre fenetre.
Tu me diras, c'est deja les 2/3 du pb qui est resolu, mais ...

[MD Software]

Question : Pourquoi le fait d'etre en modal m'interdit d'implementer Ondeactivate ?

Parce que la fiche n'est pas désactivée, c'est tout

quand elle perd le focus au profit d'une autre fenetre.

C'est pas elle-même qui déclenche l'affichage des autres fenêtre ?

[kase74]

Exacte, avec Show, les evenements se declenche.
Ca va meme trop vite :o) :
Ma fiche est cree;
je l'affiche avec Show;
l'evenement OnActivate est leve; OK ;o)
Mais tout de suite apres, je rentre dans l'evenement OnDeactivate, et je ne vois pas ma fiche a l'ecran, je reviens sur la fenetre initiale ! :o(

Desole, mais je n'ai pas l'habitude de travailler avec autre chose que des fenetres modales, et la je suis un peu deroute !

[MD Software]

Lorsque tu travailles en non modal, l'évènement onDeactivate est appellé à chaque fois que ta fiche perd le focus. Donc, si ton code ferme la fenêtre lors du onDeactivate, elle va se fermer dès qu'elle va perdre le focus

[kase74]

Question : Pourquoi le fait d'etre en modal m'interdit d'implementer Ondeactivate ?

Parce que la fiche n'est pas désactivée, c'est tout

quand elle perd le focus au profit d'une autre fenetre.

C'est pas elle-même qui déclenche l'affichage des autres fenêtre ?

Si, c'est depuis Form1 que je fait Form2.ShowModal.
Et en faisant comme ca, Form1 n'est pas desactive ? Pourtant elle perd le focus !

Voila precisement le shema type que j'applique. Je suis dans Form1, et j'ai un bouton Button1. Le code de mon bouton est :

Code :

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

1
2
3
4
5
6
7
8
9
 Form1.button1OnClick(...)
  Form2:=TForm2.Create(Self);
  try
    Form2.ShowModal;
    // Eventuellement, j'effectue un traitement en fonction de la reponse de Form2
  finally
    Form2.Release;
    Self.SetFocus
  end;

[MD Software]

Si, c'est depuis Form1 que je fait Form2.ShowModal.
Et en faisant comme ca, Form1 n'est pas desactive ? Pourtant elle perd le focus !

Oui, mais elle n'est pas désactivée

Voila precisement le shema type que j'applique. Je suis dans Form1, et j'ai un bouton Button1. Le code de mon bouton est :

Code :

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

1
2
3
4
5
6
7
8
9
 Form1.button1OnClick(...)
  Form2:=TForm2.Create(Self);
  try
    Form2.ShowModal;
    // Eventuellement, j'effectue un traitement en fonction de la reponse de Form2
  finally
    Form2.Release;
    Self.SetFocus
  end;

Pourquoi tu ne fais pas ton traitement autour du ShowModal ?

[kase74]

Pffft, c'est peut etre la chaleur, mais j'ai du mal !!!

Pourquoi tu ne fais pas ton traitement autour du ShowModal ?

Comment ca ?
En faisant :

Code :

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

1
2
3
4
TFenetreSecurisee.ShowModal : integer; 
  Self.activate; 
  inherited; 
  Self.deactivate;

[MD Software]

Code :

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

1
2
3
4
5
6
7
8
9
10
Form1.button1OnClick(...) 
  Form2:=TForm2.Create(Self); 
  try 
    //Code à l'ouverture
    Form2.ShowModal; 
    // Code à la fermeture
  finally 
    Form2.Release; 
    Self.SetFocus 
  end;

[kase74]

Ah ! Oui, bien sur, mais jen ai plein de fenetres securisee, et de Showmodal !

J'aurais voulu que ce soit propre et generalise en le faisant au niveau de la classe TFenetreSecurisee ! Si Deactivate s'etait declenche comme je le pense, c'etait top nickel !!!
Mais bon voila ! A defaut de trouver mieux, je vais reviser mon code et faire attention d'inclure les appels Activate et Deactivate autour de chaque ShowModal lance depuis une TFenetreSecurisee.

En tout cas, merci beaucoup pour tes lumieres

[MD Software]

Mais, si ton form2 est sécurisé, alors le traitement en dans la redéfintion du ShowModal [ce qu'on a dit au début]