Discussion :

[dacid]

Bonjour à tous,

J'ai glissé un cadre comprenant des boutons sur une fiche.
J'aimerais (tout betement) récupérer l'evenement onClick de ce bouton depuis la fiche principale.

J'ai vu que je pouvais réinplémenter le onClick du bouton de la frame depuis la fiche principale, et mettre du code avant ou après l'appel de la procédure onClick du cadre, seulement, j'aimerais savoir s'il y avait d'autres solutions.

En effet, je ne trouve pas ca très optimisé, et de plus, j'aimerais que ce soit le cadre lui même qui envoie l'information, car il est déposé sur plusieurs fiches et cette solution m'impose de répéter le code à chaque endroit ou il est.

Avez vous une solution ?

Merci d'avance.

[Dunsany]

Bonjour,

le comportement de ton "cadre" ressemble fort à celui d'un "compound component", c'est à dire d'un composant composé de plusieurs composants standards (en l'occurence ton cadre et tes boutons).

[Clorish]

Rien ne t'empeche de creer tes propres proprietees evenements dans le cadre : "OnButtonMachinClick" "OnSauvegardeClick", .... et les lier a la form comme de simple evenements de classe.

[dacid]

Bonjour Clorish,

Ta réponse ressemble bien à une solution possible de ce que je veux, seulement, quelques questions persistent:

D'implementer le onClick n'écrase-t-il pas celui déjà définit dans l'évenement "normal" du cadre ou est-il appelé 2 fois ?
Comment l'intercepter depuis la fiche superieure ?

Bref, je n'ai jamais fait ça... Un exemple de bout de code serait le bienvenue.

Merci d'avance.

[Clorish]

Je ne parle pas des evenements classiques deja defini mais d'en definir de nouveaux.

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
 
Type
  TMonEvent = procedure (Sender : TObject; StringParam: String; IntParam: Integer) of Object;  // Parametres au choix !!
 
  TMaFrame : Class (TFrame)
  Private
    FOnMonEvent : TMonEvent;
  Protected
    Procedure DoMonEvent(StringParam : String; IntParam : Integer);
    Procdure UneProcQuiAppelleMonEvent;
  Public
    Property OnMonEvent : TMonEvent Read FOnMonEvent Write FOnMonEvent;
  End;
 
 
Procedure TMaFRame.UneProcQuiAppelleMonEvent;
Begin
Self.DoMonEvent(Str, i); // Appel eventuel du code lié utilisateur lié a l'evenement.
End;
 
PRocedure TMaFrame.DoMonEvent(StrPAram : String; IntParam : Integer);
Begin
If Assigned(Self.FOnMonEvent) Then Self.FOnMonEvent(Self, StrPAram, IntParam);
End;

La gestion dans ton application se fait comme tout evenement classique : Soit par l'inspecteur d'objet (si accessible ...) sinon en dynamique.
Tu creer une procedure que tu affecte a la property evenement selon le meme schema que Delphi quand on lui demande de le faire automatiquement par l'inspecteur d'objet.