Discussion :

[Nzs26]

Bonjour à tous,

J'ai développé une application de type MDI. Les différentes feuilles sont accessibles par un menu. Le menu est géré par des actions : ces actions indiquent l'activation ou non de la feuille pointée et du 'lien'.

Je gère des droits utilisateurs : selon le statut, une personne aura accès à plus de parties du menu qu'une autre.

J'ai donc une fenêtre de connexion. Une fois la connexion réalisée ( vérification de la cohérance du nom d'utilisateur et du mot de passe avec la base de donnée), je stocke dans une variable intDroit les droits extraits de la requête SQL.

Dans ma feuille principale ( socle de ma structure MDI), j'ai besoin d'exécuter ce code dès que l'utilisateurs ferme la feuille de connexion et souhaite en ouvrir une autre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
  if intDroit = 404 then
    begin
      self.actLog.Enabled := true;
      self.actDeLog.Enabled := false;
    end;
  if intDroit <> 404 then
    begin
      self.actLog.Enabled := false;
      self.actDeLog.Enabled := true;
    end;
  if (intDroit = 2) or (intDroit = 10) then
    begin
      self.actParamCtrl.Enabled := true;
      self.actCreateCtrl.Enabled := true;
    end
  else
    begin
      self.actParamCtrl.Enabled := false;
      self.actCreateCtrl.Enabled := false;
    end;
    self.zsDroit.Text := inttostr(intDroit);

En cas de problème, je fais figurer dans une zone de saisie la valeur du droit. Cette zone est contenue dans un panneau de ma feuille principale. Sur l'évènement onActivate, je dois aller cliquer sur la zone de saisie pour que les nouveaux droits soient pris en compte. La feuille étant créée une fois et devant gérer de multiples connexion et déconnexion, je ne me pas insérer mon code dans le onCreate.

Après recherche dans l'aide, je ne trouve pas l'évènement qui correspondrait le mieux !

En espérant avoir été assez claire, je vousz remercie par avance !

NZs

[ShaiLeTroll]

Comment est appeler à la fiche de connexion ?
Pourquoi ne pas simplement, déclencher ce code juste après le ShowModal ou Show ?

[Nzs26]

Alors, mes feuilles sont appelées par l'instruction CreateForm. Mon soucis et que la gestion de mon menu se fait sur ma feuille principale ( moteur du MDI) et qu'on démarre sur celle-ci lors de l'ouverture de l'application et qu'elle n'est détruire que lors de sa fermeture.

Elle est donc toujours visible, créer et active puisque le menu est toujours accessible et le panneau d'en bas me servant pour le debogage aussi !

[ShaiLeTroll]

Alors, mes feuilles sont appelées par l'instruction CreateForm.

CreateForm dans le DPR ?
Tu devrais retirer la création des fenêtres du DPR et les instancier uniquement à la demande ... d'ailleurs ne mélange pas Create et Show ...

Je ne comprends pas comment ton application fonctionne, mais un bouton dans le Menu, "Changer de Compte"\"Se Reconnecter" ne serait pas le plus simple

[Nzs26]

Arf je pensais ne pas avoir était assez précise et c'est le cas donc je résume :

J'ai développer une application en MDI avec un menu sur la feuille principale qui se lance au démarrage.

D'ici je bloque certains accès au menu. Des parties sont en enabled:=false;

Pour débloquer ces parties supplémentaires réservées à l'administration, il est nécessaire de se Connecter puis de se déconnecter en cliquant.

Mon menu possède donc deux 'parties' ( onglets?) accessible dès le lancement de l'application.

Pour se connecter, le lien Connexion permet d'ouvrir la feuille correspondante. J'ouvre cette fenetre par l'instruction Create Ferme. La feuille est détruite sur le clique du bouton fermer.

Sur cette fenêtre je récupère les droits utilisateurs qui correspondent à un numéro.

Entre temps, je stocke ce numéro dans une variable globale à l'application.

Pour l'affichage du menu, je regarde le numéro des droits et je bloque ou débloque des parties ( liens du menu ) en conséquent, je modifie donc les propriété Enabled.

Ma feuille principale étant constamment ouverte ( application en MDI ) , j'avais placé le code de regard et gestion des droits sur l'évènement ONActivate de ma feuille.

Mon soucis, c'est qu'apparement ma feuille est toujours considéré comme active.

Si une personne se connecte et que les droits utilisateurs sont récupérés, ils ne sont ensuite pas interprété par la feuille principale ( qui contient le menu ) sur l'évènement OnActive. Je pensais effectuer cette routine sur un autre évènement, mais je ne sais pas lequel choisir

En espérant avoir été plus précise,

NZs

[exoseven]

peut-être en te branchant sur Screen.OnActiveFormChange lors de la création de ta feuille principale...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TMainForm.FormCreate(Sender: TObject);
begin
...
Screen.OnActiveFormChange := OnChangeForm;
...
end;
 
procedure TMainForm.OnChangeForm(Sender: TObject);
begin
 // Screen.ActiveForm = Forme Active
end;

Je ne sais pas si cela fonctionne en MDI par contre.