peut-on utiliser les composants de la page où on utilise un record ?

**GrPtj** · 31/05/2021, 09h41

Bonjour, Pour faciliter l'usage de la présentation 3D j'ai regroupé ce qui concerne une pièce dans un record (WPiece3D dans FormxDetailPiece).
J'aurais voulu mettre aussi dans ce record la procedure PRedimPce qui modifie les dimensions de la piece.
J'ai du mettre cette procedure dans les déclarations publiques de ma page (PRedimPce) car dans le record la procedure n'arrive pas à remonter à la page.
par exemple label1 ou dummy1 ne sont pas reconnus
Du coup ma question est : peut-on utiliser les composants de la page où on utilise un record ? et comment

**Paul TOTH** · 31/05/2021, 11h17

ben il suffit de lui donner en paramètre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  TFrmxDetailPiece = class; // forward
 
  RPiece3D = record
    Dim : TPoint3D;
    Pos : TPoint3D;  //centre de la pièce
    Rot : TPoint3D;
    Faces : Array[0..5] of TPlane;
    Procedure ReDimPce(Detail: TFrmxDetailPiece); // Pb depuis le container, le record n'a pas accès à FrmxDetailPiece
  end;
 
  TFrmxDetailPiece = class(TForm)
  ...

**GrPtj** · 31/05/2021, 11h54

j'ai essayé

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
type
  TFrmxDetailPiece = class(TForm)
    Viewport3D1: TViewport3D;
    Dummy1: TDummy;
    Dummy2: TDummy;
    Camera1: TCamera;
    Light1: TLight;
    Light2: TLight;
    Light3: TLight;
    Text1: TText;
    Text2: TText;
    HelpMove: TDummy;
    LightMaterialSource8: TLightMaterialSource;
    LightMaterialSourcePce: TLightMaterialSource;
    LightMaterialSourceSelect: TLightMaterialSource;
    LightMaterialSourceTra: TLightMaterialSource;
    StrokeCube1: TStrokeCube;
    Button1: TButton;
    Rectangle: TRectangle;
    Layout1: TLayout;
    Label1: TLabel;
  type
  RPiece3D = record
    Dim : TPoint3D;
    Pos : TPoint3D;  //centre de la pièce
    Rot : TPoint3D;
    Faces : Array[0..5] of TPlane;
    Procedure ReDimPce; // Pb depuis le container, le record n'a pas accès à FrmxDetailPiece
  end;
 
et aussi comme proposé :
type
  TFrmxDetailPiece = class ;
  RPiece3D = record
    Dim : TPoint3D;
    Pos : TPoint3D;  //centre de la pièce
    Rot : TPoint3D;
    Faces : Array[0..5] of TPlane;
    Procedure ReDimPce; // Pb depuis le container, le record n'a pas accès à FrmxDetailPiece
  end;
 
  TFrmxDetailPiece = class(TForm)
    Viewport3D1: TViewport3D;
    Dummy1: TDummy;
    Dummy2: TDummy;
    Camera1: TCamera;
    Light1: TLight;

dans le premier cas j'obtiens procedure TFrmxDetailPiece.RPiece3D.ReDimPce; donc effectivement attaché à la fiche VCL FrmxDetailPiece
dans le second cas procedure RPiece3D.ReDimPce;

mais dans les deux cas le label1 n'est pas reconnu ...

**Paul TOTH** · 31/05/2021, 14h20

non tu as raté la modification de la déclaration : ReDimPce(Detail: TFrmxDetailPiece)

on passe en paramètre l'instance de la fiche

**GrPtj** · 31/05/2021, 15h43

merci je n'avais pas vu en effet ...
du coup quand j'appelle la procedure je mets la fiche en paramètre ? (FMC.FireMonkeyForm as TFrmxDetailPiece).WPiece3D.ReDimPce(FrmxDetailPiece);
mais j'obtiens une erreur dans la procédure RPiece3D.ReDimPce(Detail: TFrmxDetailPiece) avec : Detail.Label1.Text := 'text';

**Paul TOTH** · 31/05/2021, 17h08

Envoyé par GrPtj

merci je n'avais pas vu en effet ...
du coup quand j'appelle la procedure je mets la fiche en paramètre ? (FMC.FireMonkeyForm as TFrmxDetailPiece).WPiece3D.ReDimPce(FrmxDetailPiece);
mais j'obtiens une erreur dans la procédure RPiece3D.ReDimPce(Detail: TFrmxDetailPiece) avec : Detail.Label1.Text := 'text';

tu ne maitrises pas les bases....

FrmxDetailPiece est une variable globale que tu n'initialises pas dans ton application, elle est donc invalide

Code :

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

1
2
 
 (FMC.FireMonkeyForm as TFrmxDetailPiece).WPiece3D.ReDimPce((FMC.FireMonkeyForm as TFrmxDetailPiece));

mais tu pourrais faire ceci

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
 
procedure TForm2.FMCCreateFMXForm(var Form: TCommonCustomForm);
begin
  if not Assigned(Form) then 
  begin
    FrmxDetailPiece := TFrmxDetailPiece.Create(nil);
    Form := FrmxDetailPiece;
  end;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  FrmxDetailPiece.WPiece3D.Dim := TPoint3D.Create(StrToFloat(Edit1.Text), Strtofloat(Edit2.Text), strtofloat(Edit3.Text))/100;
  FrmxDetailPiece.WPiece3D.Pos := TPoint3D.Create(0, 0, 0) ;
  FrmxDetailPiece.WPiece3D.Rot := TPoint3D.Create(-80, 5, -20) ;
  FrmxDetailPiece.WPiece3D.ReDimPce(FrmxDetailPiece);
end;