Salut,
C'est encore moi
Pas mal de chose dans mon projet sont arriver a termes maintenant je passe en version de test.
Pour situé le projet j'ai 3 form
la premiere comporte une base de donnée avec des enregistrement de personne
la 2eme et la 3eme Form comporte des donnée personnel de chaque personnes.
Sur la 2eme form j'ai mis un bouton "Retour" pour revenir a la 1ere Form sans avoir pour cela a quitter le projet.
et un bouton "Quitter l'application" avec ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 procedure TFiche.RetourClick(Sender: TObject); begin close; end;
Form1 etant la 1ere Form du projet.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 procedure TFiche.QuitterClick(Sender: TObject); begin Form1.Close; end;
Quand je clique sur quitter l'application, tout ce passe bien l'(application se termine.
Le probleme viens du bouton "retour".
Effectivement la form2 se ferme bien et je reviens bien aussi sur la 1ere form mais lorsque je selectionne un autre enregistrement la form2 s'ouvre en conservant les données qui etais juste avant de fermer la form2.
j'ai tester ce code
Ceci efface bien tous les texte des TEdit present sur la form2 mais apres me genere une erreur car dans la form2 j'ai des TEdit servant a des calculs et les valeurs par defauts ne sont pas recharger alors qu'ils ont etais defini a l'etablissement de la base de donnée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 procedure TFiche.RetourClick(Sender: TObject); var I : integer; begin for I := ComponentCount -1 downto 0 do begin if Components[i] is TEdit then (Components[i] as TEdit).Text := ''; end; close; end;
Comment peus-je faire pour dire que si une valeur par defaut existe pour un TEdit qu'il me la charge?
Sachant aussi qu'un evenement onShow existe pour la restitution des données concernant une personne.
je sais pas si je suis assez explicite. c'est pas evident.
merci pour vos conseil et aides
Partager