Salut à tous,
Je m'explique sur le titre de ce post un peu bizarre.
J'ai une Tframe qu on appelera Frame1 et qui comporte une listbox.
Dans l'évenement OnClick de la listbox j'ai un bou de code qui interagit avec d'autre composants de cette frame.
Jusque là tout va bien ....
Maintenant que ça c'est fait j'ai une autre Tframe (Frame2).
Dans ma frame2 je crée dynamiquement un composant qui est de type Tframe1. Et je voudrais pouvoir "surcharger" l'évènement OnClick de ma listbox de la Frame1, c'est a dire que je veux que l'èvenement continu a faire ce qui faisait a la base ,mais avec en plus un nouveau bout de code.
Voila ce que j'ai fait , sachant que la procedure init est appelé aprés la création de la frame 2.
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 procedure Tframe2.init; begin frame1:=T1.create(tbs); frame1.Parent:=(tbs); Frame1.ListBox.OnClick:=Frame2ListBox_lotClick; end; procedure TFrame2.Frame2ListBox_lotClick( Sender: TObject); begin Frame1.ListBox_lotClick(Sender); // // Suite du code // end;
Est ce la bonne façon de faire ?
Partager