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

Version imprimable

31/05/2021, 09h41
GrPtj

1 pièce(s) jointe(s)

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

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 :)

ben il suffit de lui donner en paramètre :)

Code:

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)
  ...

j'ai essayé

Code:

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 ...

31/05/2021, 14h20
Paul TOTH

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

on passe en paramètre l'instance de la fiche
31/05/2021, 15h43
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';
31/05/2021, 16h20
ALWEBER

Redimension

Pour modifier l'objet 3D je passe par l'envoi de message entre les deux univers (FMX et VCL). Si besoin je te prépare un exemple
31/05/2021, 16h33
GrPtj

merci, je veux bien un exemple, bien que cela fonctionne avec un record mais c'est peut être mieux avec un message ?

Citation:

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:

1 2 (FMC.FireMonkeyForm as TFrmxDetailPiece).WPiece3D.ReDimPce((FMC.FireMonkeyForm as TFrmxDetailPiece));
mais tu pourrais faire ceci
Code:

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;

31/05/2021, 17h18
GrPtj

merci c'est super, et c'est propre comme code !
31/05/2021, 17h20
GrPtj

je suis quand même intéressée par la solution par message de ALWEBER si ce n'est pas trop long pour envoyer un exemple,
merci
03/06/2021, 09h25
GrPtj

Je constate que la construction du container se fait après le formactivate, du coup à l'ouverture de la form le focus est sur le container.
Or je voudrais le focus sur un edit qui se trouve dans la form.
EdLongueur.setfocus dans l'activate ne fonctionne pas car même avec la création de la piece 3D dans le formcreate, après activate le programme passe dans la page parnassus et le focus est sur le container.
Avez vous une idée de comment faire ?