Discussion :

[bidochon]

bonjour,

je viens de développer un composant visuel et j'ai besoin de lui adjoindre au moins deux fiches (TForm) pour son paramétrage et avec échange d'informations aussi bien de la fiche vers le composant que dans le sens inverse.
Je voudrais aussi que chaque instance de ce composant puisse disposer de son propre jeu de fiches de paramétrage, indépendamment des autres et c'est la que ça coince chez moi... je tombe sur des erreurs de référence circulaires a ne plus en finir
J'ai cherché s'il n'y aurait pas une façon simple de procéder grâce à mes amis google et FAQ mais rien trouvé.
J'ai bien pensé aussi de mettre la classe du composant dans l'unité de la fiche mais et pour l'autre fiche ?

Merci pour les conseils éclairés !

[Gilbert Geyer]

Bonjour,

Avec si peu d'informations tu ne risques pas d'obtenir beaucoup de réponses.
Le mieux c'est de poster le code qui te cause les erreurs de référencements circulaires.

A+.

[bidochon]

J'ai trouvé mon erreur, j'essayais d’accéder aux composants de la fiche via la variable de déclaration de la fiche dans l'unité (FormConfig1) alors que mon composant se créé un objet fiche (FrmConfig1) et pour le referencement circulaire, j'ai déplacé la clause uses de l'unit du composant dans la partie implementation
voila le code pour la postérité

code simplifié du composant :

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
unit TestCompo;
 
interface
 
uses
  SysUtils, Classes, Controls, Types,Forms, Messages, dialogs, MonCompo, unitConfig1;
 
type
  TTestCompo = class(TMonCompo)
  private
    FPopMenu: TPopupMenu;
    FrmConfig1 : TFormConfig1;
    procedure mnuConfig1(Sender: TObject);
  protected
    procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN;
  public
    maVariable : string;
    constructor Create(AOwner:TComponent);override;
    Destructor  Destroy;override;
  published
    property PopMenu: TPopupMenu read FPopMenu write FPopMenu;
  end;
 
implementation
 
Constructor TTestCompo.Create(AOwner:TComponent);
var i : integer;
Begin
  inherited Create(Aowner);
  Frmconfig1 := TFormconfig1.Create(self);
  FPopMenu :=NewPopupMenu(Self,'MyPopupMenu',paLeft, False,
             [NewItem('Config1',0,False,True,mnuConfig1,0,'Item1')]);
End;
 
Destructor TTestCompo.Destroy;
Begin
  Frmconfig1.Release;
  inherited Destroy;
End;
 
procedure TTestCompo.WMRButtonDown(var Message: TWMRButtonDown);
var Pnt : TPoint;
begin
  Pnt.X := Message.XPos;  Pnt.Y := Message.YPos;
  Pnt := ClientToScreen(pnt);
  FPopMenu.Popup(Pnt.X, Pnt.Y);
End;
 
 
procedure TTestCompo.mnuConfig1(Sender: TObject);
begin
FrmConfig1.showmodal;
Mavariable:=FrmConfig1.Edit2.Text;
End;
end.

et celui de la fiche associée:

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
unit UnitConfig1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls;
 
type
  TFormConfig1 = class(TForm)
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;
 
var
  FormConfig1: TFormConfig1;
 
implementation
 
uses TestCompo;
 
procedure TFormConfig1.Button1Click(Sender: TObject);
begin
Edit1.Text:=(owner as TTestcompo).maVariable;
end;
end.