Discussion :

[solar01]

Bonjour a tous...

une petite question toute simple...

J'ai une application qui au bout d'un certain temps d'inactivité redemande l'identification de l'utilisateur.

mon probleme vient du fait que lorsqu'un utilisateur s'identifie a nouveau mais qu'il ne possède pas les mêmes droits que l'utilisateur précedement identifié, si une fentre interdite pour lui est ouverte, elle reste ouverte... et il accède à des infos protégées...

J'ai essayé plusieurs petites choses mais rien de tres concluant.

En gros de ce je cherche c'est un evenement onGetFocus pour ma form et a partir de la, j'appelle une fonction qui verifie si je peux visualiser cette page, si oui c ok sinon je ferme...

le probleme c'est l'evenement, je ne sais pas lequel prendre.

Merci d'avance

[exoseven]

regarde du coté des évenements OnActivate et OnDeactivate

L'événement OnActivate d'une fiche se produit quand la fiche devient active.

Utilisez l'événement OnActivate pour effectuer des actions particulières quand la fiche reçoit la focalisation. Une fiche devient active quand elle obtient la focalisation, par exemple quand l'utilisateur clique dans la fiche.

Pour les fenêtres enfant MDI (les fiches dont la propriété FormStyle a la valeur fsMDIChild), OnActivate ne se produit que si la focalisation passe d'un enfant à un autre. Si la focalisation vient d'une fenêtre qui n'est pas un enfant MDI vers un enfant MDI, l'événement OnActivate se produit pour la fiche parent MDI.

Remarque

C'est l'événement OnActivate de l'application (TApplication) et non pas celui de la fiche qui se produit quand Windows fait passer le contrôle d'une autre application à votre application.

[solar01]

j'ai déjà essayé cet evenement et "bizarement" il ne se produit pas lorsque ma form récupere a nouveau le focus.

Je me retrouve donc un peu bloqué.

A tout hasard, il n'exite pas un moyen de connaitre l'ensemble des fenetres ouvertes un peu à la facon de MDIChildActive ?

je pense que ca pourrait me sauver...

en tout cas merci quand meme mais onActivate ne se produit pas...

[Yurck]

Bonjour,

Je suis surpris (voire je doute) queton évènement OnActivate de ta forme ne se déclenche pas.
Tu redemande le code utilisateur sur une autre fiche ?
Si oui dès que l'utilisateur s'est identifié il referme la fiche et alors une nouvelle fiche est active. Il faut mettre le traitement sur le OnActivate de chacune des fiches.
Enfin bon tu accède à tes fiches via Screen.

Code :

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

1
2
3
 
For i:= 0 to Screen.Formcount-1 do
  if Screen.Forms[i].

a+

[exoseven]

pense aussi a réagir au OnActivate de ton application

application.OnActivate := FormActivate;

[solar01]

merci de vos réponses...

pour ce qui est de l'evenement onActivate, tres sincerement, il ne se déclenche pas... (c'est pour t'enlever le doute...) excepté la première fois. (apre mon create...)

je m'en sortirais facilement avec screen.forms par contre c'est vrai que j'aurai préféré la solution du onActivate (car beaucoup plus sur!)

si quelqu'un a une suggestion, merci d'avance