Précédent   Forum des professionnels en informatique > Autres langages > Pascal > Lazarus
Lazarus Forum d'entraide sur Lazarus, le RAD de FreePascal, à la poursuite de Delphi
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 31/10/2008, 00h17   #1 (permalink)
Invité de passage
 
Date d'inscription: octobre 2008
Localisation: France
Âge: 58
Messages: 4
Par défaut [Débutant] Passage de paramètres d'une form à une autre ?

Re-bonsoir à tous et à toutes,

Je bute sur un truc que j'utilisais pas mal en Windev :

Comment passer des paramètres ou des valeurs d'une form à une autre ?

Cas concret:

Form1 représente un enregistrement dans la table1 de ma base;
Table1 est liée à table 2 par une clé primaire de table2.
L'utilisateur veut modifier dans table1 la valeur qui permet la liaison.
Pour tester que la nouvelle valeur est correcte, pas de lézard, je m'en suis sorti. Pour le cas où on est perdu (trou de mémoire, valeur non encore créée ...), j'ai programmé la touche F4 qui ouvre Form2 et à travers elle table2 (modifiable).
Je voudrais que lorsque l'on ferme Form2, la valeur de la clé de liaison dans l'enregistrement actif de Table2 soit automatiquement reportée dans le Tdbedit ad hoc de Form1.
Cerise sur le gâteau, je voudrais utiliser Form2 ailleurs dans l'appli, donc je ne peux pas forcer une mise à jour du champ de Form1 lors de la fermeture de Form2 sans prendre quelques précautions.
Faute de mieux, ma première idée est de faire ça en testant l'existence de Form1, à votre avis ?

Mille excuses pour la longueur du propos ... et merci de vos zavis.

A bientôt
Claudius07.

Dernière modification par Alcatîz ; 07/12/2008 à 14h36.
Claudius07 est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 31/10/2008, 10h27   #2 (permalink)
Membre Confirmé
 
Avatar de chris37
 
Date d'inscription: juillet 2007
Localisation: France (Tours)
Âge: 41
Messages: 277
Par défaut

Bonjour Claudius,

Windev toi aussi ! j'en fais 8h00 par jour

Pour revenir à tes fenêtres.
Je procède comme cela... mais il y a d'autres solution je pense car on ne passe pas directement de paramètres à une form sauf via le constructeur que tu peux surcharger mais je ne le fais pas.


Code :
maform := tmaform.create;
 
If maform.showmodal = mrok then
 
    macle:=maform.mondataset.fieldbyname('monchamp').value;
   //reste du traitement...
end;
maform.free;


Si cela peut te montrer le chemin
Cordialement,
Chris

Dernière modification par krachik ; 31/10/2008 à 10h46. Motif: Ajout de balises code
chris37 est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 31/10/2008, 11h37   #3 (permalink)
Expert Confirmé Sénior
 
Avatar de Louis Griffont
 
Date d'inscription: février 2003
Localisation: Rennes (35)
Âge: 46
Messages: 3 325
Par défaut

Sinon, tu peux aussi créer une méthode de création spécialisée...
J'utilisais pas mal ça dans Delphi, je pense que, comme je vais me mettre à Lazarus, je vais vite voir comment porter la chose...

Pour moi aussi Windev (10) 8 heures par jour !
__________________
Devise de la RF : "Liberté - Égalité - Fraternité"

"Une société égalitaire, c'est le contraire d'une société de liberté et de responsabilité." N. Sarkozy (Mars 2009)
Louis Griffont est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 03/11/2008, 22h10   #4 (permalink)
Invité de passage
 
Date d'inscription: juin 2004
Messages: 4
Par défaut

+1 pour l'idée de la méthode de création spécialisée! (surcharger Create avec des paramètres)
manuker est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 04/11/2008, 13h24   #5 (permalink)
Membre Confirmé
 
Avatar de chris37
 
Date d'inscription: juillet 2007
Localisation: France (Tours)
Âge: 41
Messages: 277
Par défaut

Oui effectivement mais dans ce cas il faut redéfinir le create des que l'ont change les paramètres mais cela reste mon avis.

Le principal étant de fournir plusieurs solutions.
Cordialement,
Chris
chris37 est déconnecté   Envoyer un message privé Réponse avec citation
NEWS PASCALF.A.Q PASCALTUTORIELSEXERCICESSOURCESCOMPILATEURSOUTILSLIVRES

Réponse Proposer ce sujet en actualité

Précédent   Forum des professionnels en informatique > Autres langages > Pascal > Lazarus



Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are non
Pingbacks are non
Refbacks are non



Fuseau horaire GMT +1. Il est actuellement 02h52.


Vos questions techniques : forum d'entraide Pascal - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Hébergement - Participez - Copyright © 2000-2010 www.developpez.com - Legal informations.