Comment ajouter un évènement à un objet créé dyn avec le code dans l'objet ?

Salut tout le monde, dans la FAQ de Developpez, on trouve ceci :
http://delphi.developpez.com/faq/?pa...ajoutevenement

ce qui est très utile mais j'ai un petit soucis. Je souhaite personnaliser le MessageDlg en rajoutant un bouton Détails >> ainsi qu'un memo caché par défaut qui s'affichera quand l'utilisateur cliquera sur Détails.

Pour personnaliser le MessageDlg, j'y arrive, pour ajouter un évènement sur le bouton, j'y arrive aussi en utilisant la FAQ, mais le soucis est qu'il faut mettre le code dans une Form. Hors je souhaiterais pouvoir utiliser le même code dans plusieurs projets différents qui n'ont pas forcément de Form en commun.

Je souhaiterais peut-être par exemple utiliser une méthode de Reflexion sur la form créée par CreateMessageDialog afin de lui rajouter le code mais je ne sais pas comment faire ni si c'est réalisable.
J'ai bien peur que ce ne soit trop compliqué de faire ainsi.

Quelqu'un a-t-il une idée ?

Finalement, j'ai trouvé une solution qui est de déclarer une nouvelle form jamais instanciée dans l'unité commune qui gère le nouveau MessageDlg, la déclaration de la nouvelle form est simplement :

Code:

---

1 2 3 4

TDetailClickForm = class( TForm ) public procedure DetailClick( Sender : TObject ); end;

---

Si quelqu'un a une idée plus simple sans avoir à déclarer une form rien que pour ça, je suis toujours preneur.

PS : je mets [Résolu] parce que j'ai trouvé une solution même si ce n'est pas la plus simple.