Discussion :

[soror]

Bonsoir,

qlq'un put me rappeler de l'instanciation d'un objet en delphi avec un exemple;

c'est très sympa de votre part.
merci

[ero-sennin]

Salut,

Voici un exemple avec un Label :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
var
Lab:TLabel;
begin
lab:=TLabel.Create(Form1);
Lab.Parent:=Form1;
Lab.Top:=40;
Lab.Left:=100;
Lab.Caption:='Test du label créé dynamiquement';
end;

Voilà, j'espère que c'est ce que tu veux et que cela te convient comme exemple

[soror]

JE veux plus un exemple entre deux units, et pour acceder à un composant d'un unit à partir de l'autre unit
j'spere que vous m'avez compris
merci

[ero-sennin]

Heu, tu veux parler en programmation orienté objet ou tu veux juste naviguer et utiliser les composants d'une form à l'autre ?

[soror]

mon probleme precis
c'est que j'ai 2 form sur les 2 j'ai un BDGrid
et je veux mettre un boutton sur1 pour qu'il me sort DBGrid2 de la forme 2 mais avec un filtre
sur le BDGrid 1 j'ai des nom de banques et sur le 2 j'ai des guichets
moi je veux filtrer les guichets du DBGrid 2 selon la banque séléctionée
c'est ça mon problème j'espere que vous m'avezz compris
merci

[anapurna]

salut

code de la premiere unit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
unit Unit1;
interface
 uses classes ;
 Type 
  TObj1 = Class
   Constructor create;
   destructor Destroy; override;
  end;
implementation
 
constructor  TObj1.Create;
begin
//
end;
Desstructor  TObj1.Destroy;
begin
//
end;
end;

code de la seconde Unit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
unit Unit2 ;
interface
uses Unit1,Classes;
 
 Type 
  TObj2 = Class
   Obj1 : Tobj1;
   Constructor create;
   destructor Destroy; override;
  end;
implementation
  
constructor  TObj2.Create;
begin
Obj1 := Tobj1.create;
end;
Desstructor  TObj2.Destroy;
begin
Obj1.free;
end;
end;

PS: ta demande n'as rien a voir avec l'instanciation d'un objet
PS2: c'est un Tdbgrid ou un Tstringgrig

@+ Phil

[soror]

Merci a vous tous