Discussion :

[hugobob]

Salut à tous !

J'ai une fiche MDI et des fiches MDI filles . Une d'elles appel un fiche qui n'est pas MDI et cette dernieres veut acceder à un TEdit de la fiche fille appellante mais une erreur de violation d'acces survient . comment faire ?


Fiche MDI Mere

Code :

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

1
2
3
4
5
procedure TFormAccueil.Souscripteur1Click(Sender: TObject);
begin
 FormSouscripteur1:=TFormSouscripteur1.Create(Application.MainForm);
 FormSouscripteur1.Show;
end;

Fiche MDI Fille

Code :

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

1
2
3
FormChoixTypeSousc:=TFormChoixTypeSousc.Create(FormSouscripteur1);
FormChoixTypeSousc.ShowModal;
FormChoixTypeSousc.Release;

Fiche simple

Code :

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

1
2
3
4
procedure TFormChoixTypeSousc.BitBtn1Click(Sender: TObject);
begin
FormSouscripteur1.Edit1.Text:='Texte à inserere';
end;

[MedGIR]

C'est très simple...

Surclassage de type...

Fiche MDI Mere

Code :

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

1
2
3
4
5
procedure TFormAccueil.Souscripteur1Click(Sender: TObject);
begin
   FormSouscripteur1:=TFormSouscripteur1.Create(Application.MainForm);
   FormSouscripteur1.Show;
end;

Fiche MDI Fille

Code :

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

1
2
3
FormChoixTypeSousc:=TFormChoixTypeSousc.Create(FormSouscripteur1);
  FormChoixTypeSousc.ShowModal;
  FormChoixTypeSousc.Release;

Fiche simple

Code :

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

1
2
3
4
procedure TFormChoixTypeSousc.BitBtn1Click(Sender: TObject);
begin
    TFormSouscripteur1(Owner).Edit1.Text:='Texte à inserer';
end;

[hugobob]

Merci à tous !

en fait c'etait une erreur de creation de fiche !


Merci !