Discussion :

[bightf]

Bonjour,

Je rencontre actuellement un petit souci sous delphi 7, je ne savais pas trop où mettre ça alors je le case ici.

Ce que je souhaite faire, c'est un passage de valeur entre 2 forms MDI, la form principale et un de ses "enfants".

Pour l'instant j'arrive à le faire entre 2 forms "indépendantes", de la manière suivante :

Form principale :

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 TFormMain.Dimensions1Click(Sender: TObject);
var
  ChildForm: TFormDimensions;
begin
  ChildForm := TFormDimensions.Create(Self);
  ChildForm.MatriceX1:=MatriceX1;
  ChildForm.MatriceY1:=MatriceY1;
  ChildForm.MatriceX2:=MatriceX2;
  ChildForm.MatriceY2:=MatriceY2;
  ChildForm.ShowModal;
 
  MatriceX1:=ChildForm.MatriceX1;
  MatriceY1:=ChildForm.MatriceY1;
  MatriceX2:=ChildForm.MatriceX2;
  MatriceY2:=ChildForm.MatriceY2;
end;

Form child :

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
 
private
    { Déclarations privées }
    FMatriceX1, FMatriceY1, FMatriceX2, FMatriceY2: integer;
  public
    { Déclarations publiques }
    Property MatriceX1: integer Read FMatriceX1 Write FMatriceX1;
    Property MatriceY1: integer Read FMatriceY1 Write FMatriceY1;
    Property MatriceX2: integer Read FMatriceX2 Write FMatriceX2;
    Property MatriceY2: integer Read FMatriceY2 Write FMatriceY2;
 
procedure TFormDimensions.FormShow(Sender: TObject);
begin
  SpinEditX1.Value:=FMatriceX1;
  SpinEditY1.Value:=FMatriceY1;
  SpinEditX2.Value:=FMatriceX2;
  SpinEditY2.Value:=FMatriceY2;
end;

Ce code semble fonctionner correctement pour un modèle de fiches indépendantes, mais lorsque je veux l'appliquer au modèle parent/enfant, rien à faire...

Y'a t-il une solution à ce problème ?
Je dois surement m'y prendre de la mauvaise façon...

Merci de vos réponses.

[ShaiLeTroll]

en MDI, tu peux l'aspect bloquant du ShowModal, remplit les valeurs des Matrice dans le OnClose dans la Child par exemple !
Sache que tu peux passer un objet à une fenêtre, elle peut le modifier, et la fenêtre d'origine ayant le même objet, elle pourra accéder au modification

Regarde autour de Référence d'Objet et Notification et les patters comme Observer\Observable ...