Discussion :

[rvzip64]

salut tout le monde, voila j'ai une fiche princiaple et x MDI filles, je voudrais que quand je clique sur un bouton de ma fiche principale ,cela exécute une fonction (toujours la meme) , sur la fille qui a le focus. et je sais pas comment code ça !

Mercid avance.

[Nono40]

La fiche parent MDI contient une propriété ActiveMDIChild qui contient l'instance le la fenêtre fille active ( Nil si aucune ). Il suffit alors de déclarer une fonction sur la fiche enfant et l'appeler :

Code :

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

1
2
  if ActiveMDIChild <> nil then
    TMaFicheMDIFille(ActiveMDIChild).MaFonctionDeLaFicheFille;

[rvzip64]

ok je suis d acord avec toi pour le code, mais le problème si jai 60 fiches qui on toute une fonction s appele pareil je vais pas faire ça :

Code :

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

1
2
3
 
if ActiveMDIChild <> nil then 
    TMaFicheMDIFille(ActiveMDIChild).MaFonctionDeLaFicheFille;

60 fois !

[Nono40]

Est-ce que toutes les fiches sont issues du même type de fiche enfant MDI ou non ?

[rvzip64]

non chaque fiche est une fiche différente.

[Nono40]

Alors il faut créer sur chaque type de type une fonction ayant le même nom et les mêmes paramètres. D'autre part cette procédure doit être déclarée dans la partie publiée de la fiche ( il faut ajouter manuellement Published ) :

Code :

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

1
2
3
4
5
6
7
8
  TForm1 = class(TForm)
  //...
  public
    { Déclarations publiques }
  //..
  published
    procedure Essai2(Param:Integer);
  end;

Dans la fiche principale tu défini un type de fonction correspondant :

Code :

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

Type TEssai=Procedure (Param:Integer) Of Object;

Et dans le code du bouton tu mets le code suivant pour obtenir l'adresse de la fonction en fonction de l'instance de fiche active :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button3Click(Sender: TObject);
Var Fonction:TEssai;
begin
  if ActiveMDIChild <> nil then
  Begin
    @Fonction:=ActiveMDIChild.MethodAddress('Essai2');
    If @Fonction<>Nil
      Then Fonction(1234);
  End;
end;

[rvzip64]

nickel je te remercie