Envoyer le contenu d'un TEdit dans un TStringGrid

Question

slt a tous je suis nouveau en delphi et jai un ptit probl&#232;m je cherche le code pour que le contenu dun edit soit envoy&#233; dans un tstringgrid sachant que ledit se trouve dans form1 &#233; le tstringgrid dans le form 2 

nb g  delphi 6 personal et ya pa beaucoup de  composants

++

Gildeplomb · Answer

Bonjour 

par exemple 

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form2.StringGrid1.Cells[1,1]:=Edit1.Text;
end;

Ne pas oublier de mettre 

Uses unit2 

dans l'unit1 apres Implementation 
Bye

cs_saravana · Answer

merci de mavoir r&#233;pondu
g essay&#233; ton cod m&#233; il nouvre pa form2 pourtant il &#233; bien apr&#232; impl&#233;mentation

jessaye de fer un agenda avec edit1(nom) edit2(pr&#233;nom) &#233; edit3(age) je ve ke button1 envoi c 3 r&#233;f&#233;rences ds le tstringgrid1(ds le form2)
++

Gildeplomb · Answer

Voila le code de l'unit 1
Essaye de parler francais car j'ai des difficultés a comprendre ton langage 

bye

Unit Unit1;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;

Type
   TForm1 = Class(TForm)
      Button1: TButton;
      Edit1: TEdit;
      Edit2: TEdit;
      Edit3: TEdit;
      Procedure Button1Click(Sender: TObject);
   Private
    { Déclarations privées }
   Public
    { Déclarations publiques }
   End;

Var
   Form1            : TForm1;

Implementation
Uses unit2;
{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Begin
   Form2.Show;
   Form2.StringGrid1.Cells[1,1] := Edit1.Text;
   Form2.StringGrid1.Cells[2,1] := Edit1.Text;
   Form2.StringGrid1.Cells[3,1] := Edit3.Text;
End;


End.

Envoyer le contenu d'un TEdit dans un TStringGrid

3 réponses

Votre réponse

Discussions similaires