Composant et TAction

Bonjour,

Je cherche à créer un composant contenant des procédures qui peuvent être appeler par la propriété "Action" des composants (bouton, menu, etc...).

J'ai étudié le source Borland "StdActns" mais je n'ai pas trouvé comment faire.

Créer un composant simple avec des propriétés et des méthodes c'est ok, mais je n'arrive pas à faire apparaître les méthode dans la propriété "Action".

Merci

Bazole

Deux questions :
1- de quel classe hérite ton nouveau composant ?
2- quelle est la version de Delphi utilisée ?
May Delphi be with you

Bonjour

J'utilise Delphi 6 Perso.
Ci-dessous le code que j'utilise pour essayer de comprendre.

unit Edition; interface uses Classes, ActnList, ComCtrls; type //Pour faire apparaître le composant dans la palette TEdition = class(TCustomAction) FRichEdit: TRichEdit; //Pour choisir le composant cible des actions property RichEdit: TRichEdit read FRichEdit write FRichEdit; end; //Action que je veux faire apparaître dans la //propriété "Action" d'un composant (menu, bouton, etc...) TSelAll = class(TEdition) procedure Selection; end; procedure Register; implementation procedure Register; begin RegisterComponents('Test', [TEdition]); end; procedure TSelAll.Selection; begin FRichEdit.SelectAll; end; end.

Le but est de créer un compo qui contiendrait plusieurs actions que l'on associerait à des boutons ou des menuitems sans entrer la moindre ligne de code (comme avec le compo ActionList).

Merci

Bazole