Variable partagée et fenêtres modales

Version imprimable

30/04/2020, 19h07
patdu26

5 pièce(s) jointe(s)

Variable partagée et fenêtres modales

Bonjour à tous,

je réalise une application comportant trois unités :
- quizz_24_04.pas : application principale
- bdd_28_08.pas : identification dans une bdd
- paratager.pas : déclaration d’une variable partagée nommée utilisateur.

Pièce jointe 561820

On démarre avec l’interface de la fiche principale.
Pièce jointe 561821

Cette fiche comporte notamment un bouton « connexion » qui créé la « form bdd » de manière modale, et donc la fiche principale devient inerte en arrière plan.
Pièce jointe 561825

Si l’identification est ok, on affecte le nom de l’utilisateur dans la variable « utilisateur », puis la fiche bdd est fermée, rendant la main à la fiche principale.

Désireux d’afficher le nom de la personne connectée dans le Tlabel « lb_élève » de la fiche principale, je ne peux pas le faire sur le « OnClose » de la « forme bdd » car les objets de la fiche principale lui sont inconnus. La variable commune mise à jour « Utilisateur », doit permettre cette transmission.

Si je mets à jour cet affichage en utilisant un bouton, au retour sur la fiche principale, cela fonctionne, mais ca reste manuel, donc bof….
Pièce jointe 561828

On précise dans la doc que le « OnActivate » des forms est appelé dès que la form est activée, à la création bien sur, mais également quand on lui « rend la main » après une fenêtre différente, appelée de manière modale. Je voulais utiliser cet événement de retour pour cela, mais il ne semble pas être appelé, car même le « showmessage » n’est pas accompli au retour dans mon « OnActivate », alors qu’il est accompli au démarrage.
Pièce jointe 561829

1/ L’événement OnActivate de la form principale peut-il être appelé à la réactivation de la fiche principale, déjà existante mais à la récupération du focus ?

2/ Quel autre événement peut détecter que la fiche a été « remise en premier plan » et ainsi accomplir un peu de code à ce moment là ??

Merci pour vos idées……
30/04/2020, 20h48
tourlourou

Bonsoir,

Si je comprends bien, l'utilisateur est accepté ou non dans la fiche modale, grâce à une interrogation de BDD.

Ma question accessoire : que se passe-t-il s'il n'est pas autorisé ?

Sinon, au lieu de cibler un événement de la fiche principale, il pourrait suffire d'exploiter le OnClose de la fiche modale auquel on aurait affecté une fonction de celle principale.

Ou utiliser une méthode d'objet style MajFichePrincipale comme fonction de rappel (avec le passage du nom d'utilisateur en argument), qui maintiendrait l'indépendance des fiches en évitant l'unité pour partager une valeur.
30/04/2020, 21h45
Andnotor
Tu n'as pas besoin d'un événement supplémentaire, c'est le retour de ShowModal qu'il faut traiter.
La fiche modale va certainement contenir deux boutons, l'un "Ok" avec un ModalResult à mrOk et l'autre "Annuler" à mrCancel.
Code:

1 2 3 4 5 procedure TForm8.bConnectionClick(Sender: TObject); begin if fBDD.ShowModal = mrOk then lb_eleve.Caption := Utilisateur; end;
01/05/2020, 11h59
patdu26

toujours en vrac...

Bonjour Tourlourou

Merci de prendre en compte mon appel!

L'application principale est un quizz visuel sur un domaine technique, où l'on doit placer des images sur des emplacements dédiés, selon les questions.
Si on n'est pas connecté, on peut utiliser le quizz pour "s'entrainer" de manière anonyme.
Si on veut conserver un résultat, on peut s'identifier.
Quand on demande la connexion, si on est identifié, la variable "utilisateur" contient le nom du connecté.
Si on ne parvient pas à s'identifier, on ferme la fenêtre "bdd" et on redonne la main au mode anonyme.

Effectivement, utiliser l'événement "OnClose" de la fenètre de connexion pour mettre à jour le nom du connecté est une idée qui semble la plus appropriée.
En effet, je retourne sur la fiche principale avec le nom contenu dans "utilisateur" partagée par la fiche principale.
Cependant, sur le OnClose, je suis encore sur la fiche bdd, et une procédure concernant un objet de la fiche principale ne peut fonctionner., non??
En effet, Comment la fiche bdd pourrait mettre à jour le champ "lb_élève.caption" qu'elle ne peut voir, puisque appartenant à la fiche principale??

A part manuellement, au retour sur la fiche principale, je clique sur un objet pour effectuer "lb_eleve.caption := utilisateur", ca marche mais c'est sans intérêt.... Ou alors un timer qui toutes les 5 secondes effectue "lb_eleve.caption := utilisateur", au hasard, pour être utile une seule fois...
Bof, bof,.... y a vraiment un truc qui m'échappe....
01/05/2020, 12h08
patdu26

Pour Andnotor
Citation:
Envoyé par Andnotor

Tu n'as pas besoin d'un événement supplémentaire, c'est le retour de ShowModal qu'il faut traiter.
La fiche modale va certainement contenir deux boutons, l'un "Ok" avec un ModalResult à mrOk et l'autre "Annuler" à mrCancel.

Code:

1 2 3 4 5 procedure TForm8.bConnectionClick(Sender: TObject); begin if fBDD.ShowModal = mrOk then lb_eleve.Caption := Utilisateur; end;
Merci pour les suggestions!

J'aimerais que quand la fiche "secondaire" bdd se ferme et rend la main à la fiche principale, le nom de l'utilisateur identifié, s'affiche automatiquement sur la fiche principale qui reprend la main.
Dans votre exemple, il me semble qu'il faut cliquer sur un élément sur la fiche Tform8 principale pour mettre à faire apparaitre le nom??

Ma difficulté est de mettre à jour le champ objet de la fiche principale, alors que je quitte une fiche secondaire...

Passer la valeur dans une variable "utilisateur" par exemple, fonctionne grâce à la variable partagée, mais faire agir cette variable spontanément au retour sur la fiche principale représente mon problème:calim2: réel...

Si une idée vous vient, elle sera la bienvenue!
01/05/2020, 12h39
tourlourou

Andnotor a proposé le code à utiliser dans le clic d'un bouton de connexion d'utilisateur, mais il doit remplacer celui qui crée la fiche modale, dont la valeur de retour doit être positionnée en même temps que la variable utilisateur lors de la validation.

MERCI !!

Merci à Andnotor et Tourlourou !!

Vous vous êtes mis à deux pour m'expliquer la méthode et j'ai quand même passé encore une heure à faire des essais pour une solution d'une simplicité désarmante.. Bravo!

En fait, quand la fiche perd la main ou la reprend, le "OnActivate" ne semble pas sollicité, donc pas exploitable...

En revanche, ce qui aurait dû me frapper (pas trop fort quand même:?), c'est que dès la demande "showmodal" sur la fiche1, elle se fige immédiatement, sans terminer les intructions sur le bouton "Onclick" qui permet la création de cette fiche2 en "Showmodal".

Et donc, au retour, on termine en premier par les instructions contenues dans ce "OnClick" du bouton de connexion sur la fiche1.

Et donc comme me l'a écrit Andnotor, il suffit de mettre à jour au retour juste après le "ShowModal".

Ca donne :
Code:

1 2 3 4 5 6 7 //------------- J'APPUIE SUR LE BT CONNEXION ------------------------ procedure TForm8.Bt_ConnexionClick(Sender: TObject); begin MaForm := TMaForm.create (Self); MaForm.ShowModal ; lb_élève.caption := utilisateur; end;
C'est simple et efficace, mais je n'arrivais pas à le voir et à comprendre....

Merci à tous les deux pour avoir remis de l'huile dans mes rouages cérébraux endormis. :bravo::chin:

Bonjour,

Je ne voulais pas intervenir car je suis plutôt anti formes modales, sauf cas particuliers. Cependant votre dernier code me gêne un peu aux entournures donc finalement j'interviens après clôture pour signaler plusieurs trucs dont les probables fuites de mémoire, ou utilisations multiples qui pourraient "planter"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm8.Bt_ConnexionClick(Sender: TObject); var lMaForm : TMaform; // variable locale begin lMaForm := TMaForm.create (Self); try lMaform.Utilisateur.Text:=Utilisateur; // optionnel affichage du dernier utilisateur (partage Form8 -> TMaForme) if lMaForm.ShowModal = mrok then // connexion ok lb_élève.caption := lMaForm.utilisateur.text; // récupére le nom de l'utilisateur de la forme lMaforme (partage TMaForme -> Form8) finally lMaform.free; // suppression "propre" évitant fuite de mémoire end; end;
NOTE : TMaform ne doit pas être créée au lancement du projet (voir les options de fiche et/ou modifier directement le source du projet)

02/05/2020, 12h00
patdu26

Merci à SergioMaster

Merci pour votre relecture, afin de m'éviter des blocages à venir.
"Mieux vaut prévenir que guérir" parait-il...
A bientôt si besoin.;)