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.

[Nzs26]

Je ne connaissais que le SELF et maintenant je découvrir le SCREEN cela annonce pleins de belles découvertes en perspectives .

Je ne peux pas essayer tout de suite car l'application a été développée sur un autre poste et je ne peux pas activer Delphi 2005 sur mon pc personnel ( même si je possède la clé ) et j'ai des soucis pour relier SQL Server 2000 à Delphi, donc j'ai hâte de tester ton idée exoseven !

Je te tiens au courant dès test effectué, au plus tard mercredi !

En tout cas merci beaucoup !

NZs

[ShaiLeTroll]

il est compliqué de suivre tes explications Nzs26, ceux qui pourront te répondre n'ont pas peur de l'informatique, tu peux parler technique, voire mettre du code ...

Donc

TMainForm
TConnexionForm

je vois donc une MenuItem ou une Action, appelé ActConnection

le Execute devrait contenir ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TMainForm.ActConnectionExecute(Sender: TObject);
begin
  with TConnexionForm.Create(nil) do // Evitons d'utiliser la globale généré automatiquement ...
  try
    ShowModal(); // dison que TConnexionForm modifie la globale intDroit 
    GereDroit();
  finally
    Free();
  end;
end;

c'est simple, efficace, je ne vois pas comment on peut faire autrement, j'ai l'impression que tu nous a fait une uzine à Gaz, car tu as voulu laisser la fenêtre de connexion en MDI, alors que c'est typiquement la seul fenêtre qui DOIT être en SDI ...

sinon, si tu veux faire du MDI obligatoirement, il faut mettre du code un peu partout

Code :

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

1
2
3
4
procedure TMainForm.ActConnectionExecute(Sender: TObject);
begin
  ConnexionForm := TConnexionForm.Create(Self).Show(); // là, on est obligé d'utiliser la globale pour fin simple avec le MDI, mais il y a des moyens plus élégants ... mais plus retord aussi !
end;

Code :

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

1
2
3
4
5
6
7
8
procedure TConnexionForm.FormClose(Sender: TObject; Action: TCloseAction);
begin
  Assert(ConnexionForm = Sender, 'Il y a deux fenêtres de connexion, c''est la merdouille ...');
 
  Action := caFree; // si par défaut c'est Hide; !
  // ou sinon carrément
  // Self.Release(); // à la limite, l'effet est encore plus fiable ...
end;

Code :

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

1
2
3
4
5
6
7
 
procedure TConnexionForm.Destroy(); // ou FormDestroy ...
begin
  ConnexionForm := nil;
 
  inherited Destroy();
end;

[Aka Guymelef]

Attention Self et Screen ne sont pas du même ordre. Self est quasiment un mot clé permettant de référencer l'objet lui-même dans une de ses méthodes alors que Screen est une variable globale donnant des informations sur l'écran et la fenêtre du programme. Consulte l'aide (TScreen) pour obtenir ce que fournit le Screen.

[Nzs26]

Tu fais bien de m'arrêter tout de suite dans ma lancée alors
Je renseigne sur SCREEN, je test dès mardi et je vous tiens au courant d'ici mercredi au plus tard !



NZs

[Nzs26]

Je vous tiens au courant comme prévus, quitte à vous décevoir ...

Je n'ai plus le temps de mettre en place le module de gestion des comptes et droits utilisateurs ...

Je vous remercie de vous contributions et de tout ce que vous m'avez appris

Je conserve ce thread pour une réutilisation future

Merci