Passer une variable d'une form a l'autre

Salut tout le monde,

J'ai une deux tite question surement béte :aie:
mais je ne c'est absolument pas commen faire!:(

Faire passer une variable d'une fiche à l'autre.
Et Mettre en pause Form Principale (que le code soit en pause mais ne block pas l'application) pendant q'une autre form est lancé!

Voila c'est tout!
Merci d'avance!

Citation:

---

Envoyé par 6BORG

Faire passer une variable d'une fiche à l'autre.

---

1- déclare un variable globale parti interface (de préférence d'une unité)
2-utilise les messages :?

Citation:

---

Envoyé par 6BORG

Et Mettre en pause Form Principale (que le code soit en pause mais ne block pas l'application) pendant q'une autre form est lancé!

---

-type de form stayontop, et affiche avec show (non modal)
-ou form modal et dans l'autre form tu crée un thréad (ou meme utilise un timer :roll: ),
-ou form modal et depuis cette form tu appel la fonction en mettons dans le code "application.processmessage"
-ou .....

Salut,

Considérons deux form appellées Form1 et Form2.

Dans la Form1 dans la partie qui concerne la déclaration des variables, je mets une variable appelée Fiche1 donc j'ai ceci :

Code:

---

1 2 3

var Form1: TForm1; VariableForm1 : String;

---

Maintenant, nous allons dans la Form2, faire Fichier->Utiliser l'unité ... et choisir Unit1 (car c'est là où se trouve la variable "Fiche1").
Ensuite, pour utiliser la variable "Fiche1" dans la Form2, il suffit de l'appelé tout simplement.

Pour mettre ton code en mode pause, je ne vois pas trop ce que tu veux dire! Si tu veux afficher la Form2 (et travailler uniquement dedans) sans que l'utilisateur ne puisse toucher à la Form1, lors de l'appel de la Form2, utilise le ShowModal:

Exemple:

Code:

---

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin Form2.ShowModal; end;

---

J'espère avoir été assez clair :roll:
En espérant avoir répondu à tes questions ;)
@+

Merci a vous les deux reponse reunis sa ma bien aider! :)
Comme quoi j'ai encore du progré a faire en delphi je connait pas encore bien tout! ;)

Salut et a bientôt surement! :D