Discussion :

[K.othmane]

Yop
voila j'ai une fonction Test(test1 , test2 : string ) sur Form2 (unit2) et je voudrais faire en sorte de remplir les parametres de la fonction Test depuis la Form1 .
Si vous voyez ce que je veux dire .
Merci

[WebPac]

Essai ce code là :

Code :

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

1
2
3
4
procedure Form2.Test(test1 , test2 : string );
begin
  Form1.Test( test1, test2 );
end;

Lors de la prochaine compilation, il va te dire que la Form2 fait référence à la Form1 déclarée dans l'unité Form1, qui n'est pas dans la liste USES. Veux-tu l'ajouter ?
Il suffira de dire Oui.

[Graffito]

Ou encore,

Dans Form1 :

Code :

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

1
2
3
4
5
 
uses Form2;
...
Form2.testparam1:=edit1.text ;
Form2.testparam2:=edit2.text ;

Dans form2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
type 
    Tform1 = class(Tform)
        testparam1 : string;
        testparam2 : string;
 ...
procedure Tform1.button1click(
begin
test(testparam1,testparam2) ;
...

[K.othmane]

Yop
Merci a vous , mais je n'ai pas tout compris la .
Je prend l'exemple de WebPac qui parait plus simple .
Sur la form4 j'ai cette procedure :

Code :

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

1
2
3
4
5
6
7
8
9
procedure Begin_Download(Lien :string ;stream : TMemoryStream );
begin
  try
    form4.IdHTTP1.Get(Lien, Stream);
  finally
    Stream.Free;
  end;
  ThreadH:=0;
end;

donc je voudrais envoyer le contenu de deux variables Globales dans form1

Code :

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

1
2
3
4
5
6
7
8
 
var
Variable1 , Variable2 : string ;
 
procedure TFrm_Main.Button2Click(Sender: TObject);
begin
 
end;

merci encore

[WebPac]

donc je voudrais envoyer le contenu de deux variables Globales dans form1

Si ce sont des variables globales, elles sont directement accessibles depuis ta form1, tu peux les utiliser sans avoir à les envoyer.

Expliques nous plutôt ce que tu veux faire exactement.

[aityahia]

je pense qu'il faut déclarer ta procedure dans la partie publique

Code :

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

1
2
3
4
5
6
7
8
9
Public
procedure Begin_Download(Lien :string ;stream : TMemoryStream );
End;
 
 TForm4.procedure Begin_Download(Lien :string ;stream : TMemoryStream );
    begin
      //******
     //****
    end;

et dans la form principale

Code :

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

1
2
3
4
5
6
7
8
 
Var
Variable1 , Variable2 : string ;
 
procedure TFrm_Main.Button2Click(Sender: TObject);
begin
 Form4.Begin_Download (Variable1,VariableStream); 
end;

[K.othmane]

Yop
Merci a toi aityahia ca marche .