Envoyer le contenu d'un TEdit dans un TStringGrid

Signaler
Messages postés
91
Date d'inscription
vendredi 25 mars 2005
Statut
Membre
Dernière intervention
18 octobre 2007
-
Messages postés
101
Date d'inscription
samedi 29 décembre 2012
Statut
Membre
Dernière intervention
25 janvier 2021
-
slt a tous je suis nouveau en delphi et jai un ptit problèm je cherche le code pour que le contenu dun edit soit envoyé dans un tstringgrid sachant que ledit se trouve dans form1 é le tstringgrid dans le form 2

nb g delphi 6 personal et ya pa beaucoup de composants

++

3 réponses

Messages postés
101
Date d'inscription
samedi 29 décembre 2012
Statut
Membre
Dernière intervention
25 janvier 2021

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
Messages postés
91
Date d'inscription
vendredi 25 mars 2005
Statut
Membre
Dernière intervention
18 octobre 2007

merci de mavoir répondu
g essayé ton cod mé il nouvre pa form2 pourtant il é bien aprè implémentation

jessaye de fer un agenda avec edit1(nom) edit2(prénom) é edit3(age) je ve ke button1 envoi c 3 références ds le tstringgrid1(ds le form2)
++
Messages postés
101
Date d'inscription
samedi 29 décembre 2012
Statut
Membre
Dernière intervention
25 janvier 2021

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.