Discussion :

[ChPr]

Bonsoir à toutes et à tous,

J'ai créé un composant qui à la configuration suivante :

Dans l'unité Unit1, qui est "registred", j'ai le composant (qui sera appelé) :
TChercher = class(TComponent).

Ce composant, va appeler une composant TAffDialog = class(TForm) dans une unité Unit2. Dans ce TAffDialog, j'ai un bouton avec son évènement OnClick.

Mon problème : Je voudrais que dans la partie "published" de TChercher il y ait un évènement que l'on voit dans l'inspecteur d'objet et que cet évènement soit déclenché lorsque je clique sur le bouton de mon TAffDialog.

Je tourne un peu (beaucoup à vrai dire) en rond.

Pourriez-vous m'aider et me dire comment on fait ?

Je vous en remercie par avance.

Pierre

[tintinux]

Bonjour

Si j'ai bien compris ton besoin, il suffit que TAffDialog puisse accéder à l'événement défini dans TChercher.

Il y a au moins deux solutions :

1) Déclarer une variable globale du même type evenement dans TAffDialog, et lui assigner celle de l'objet TChercher avant qu'il créee ou affiche la Form. Ce n'est pas le plus académique... C'est plus facile si c'est un type événement prédéfini par Lazarus.

2) Faire un use de l'unité qui définit TChercher dans la partie implémentation de TAffDialog (Pas dans l'interface pour ne pas tourner en rond). Si TAffDialog peut accéder à TChercher, notamment si c'est son parent, ou d'une autre manière, il pourra accéder à l"événement.

Dans les 2 cas, TAffDialog connaîtra (l'adresse de) l'événement à lancer depuis le bouton. Je suppose que tu sais faire à partir le là. Sinon n'hésite pas à préciser où tu bloques.

[ChPr]

Merci tintinux pour les pistes que tu me donnes. Je voulais éviter la deuxième que tu proposes. Finalement, j'y suis arrivé de la manière suivante :

Dans TChercher j'ai placé :

Code :

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

1
2
 published
     property OnSuivant: TNotifyEvent read FOnSuivant write FOnSuivant;

puis, dans une procédure précédent la mise en oeuvre de TAffDialog j'ai assigné à l'évènement OnClick du bouton (que j'ai appelé "Suivant") la propriété OnSuivant de TChercher.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TChercher.ShowModal;
begin
  with AffDialog do
  begin
     ....
     Suivant.OnClick:= OnSuivant;                                {Assignation}
  end;
  AffDialog.ShowModal;
end;

Voilà. Ça fonctionne bien.

Merci encore.

Pierre