Discussion :

[hayat2]

Salut
je veux declarer un objet dans une form et le créer dans une autre form et l'utilisation de cet objet se fais dans les deux forms.Mais le probleme il m'affiche un message d'erreur.
Comment faire pour que je puisse déclarer un objet dans une form et l'utilise dans une autre form?
merci d'avance.
@+

[Archimède]

C'est quoi ton objet ?

Si c'est un composant de la VCL, il a un propriétaire et un parent. L'utilisation de la même instance ne pourra pas se faire.

Tu peux très bien le déclarer dans une unit, et l'utiliser dans l'autre mais dans les deux non...

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
 
  public
    { Déclarations publiques }
    monpanel:TPanel;
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.show;
end;
 
end.
 
 
//deuxième unité :
 
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit1,ExtCtrls, StdCtrls;
 
type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm2.FormCreate(Sender: TObject);
begin
 form1.monpanel:=Tpanel.create(form2);
 with form1.monpanel do
 begin
 parent:=form2;
 setbounds(10,10,100,100);
 end;
 
end;
 
end.

[bhami9]

bonjour
pour utiliser deux formes a la fois (Alt_f11)

[Archimède]

Mets ton code, que l'on voit où ça bloque...

C'est la meilleure solution lol

[chh2008]

dans les deux forme vous ajoutez l'unité dans uses et vous la créez puis vous l'utilisez.


--
Le progrès implique non seulement de nouvelles possibilités pour l'avenir, mais également de nouvelles restrictions
Norbert Wiener

[Just-Soft]

salut

du 1er coup ça parait simple puis ça devient difficile à comprendre alors hayat autant mettre le code.

[Just-Soft]

salut

à ce que je vois tu as réglé ton problème mais si tu veux bien un partage de la solution serait le bienvenu.