Discussion :

[pirbd]

Bonjour,

J'essaie de faire un composant qui devra afficher une sorte de popup menu mais qui ne derivera pas du popup car la popup 'bloque' l'application...

Mon probleme c'est que j'essaie en vain de réutiliser l'éditeur de propriété des popup

J'ai essayé ca

Code :

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

1
2
3
 
RegisterPropertyEditor(TypeInfo(TMenuItem), TPopupButton, 'Items',
       TPropertyEditorClass(GetClass('TMenuItemProperty')));

dans mon Register mais ca marche pas

Si quelqu'un a une piste il est le bienvenue

[sjrd]

J'ai essayé ca

Code :

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

1
2
3
 
RegisterPropertyEditor(TypeInfo(TMenuItem), TPopupButton, 'Items',
       TPropertyEditorClass(GetClass('TMenuItemProperty')));

dans mon Register mais ca marche pas

Qu'entends-tu par "ça ne marche pas" ? Erreur de compilation, d'exécution, d'installation du package, ou simplement aucun effet ?

Pourquoi utilises-tu un cast sauvage ? Tu peux utiliser directement :

Code :

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

RegisterPropertyEditor(TypeInfo(TMenuItem), TPopupButton, 'Items', TMenuItemProperty));

[pirbd]

Quand je dis que ca marche pas, il faut comprendre que ca compile, ca s'installe mais la propriété Items n'apparait plus dans l'inspecteur d'objet... (j'avoue que c'etait pas super clair )

Effectivement la solution que tu proposes parait seduisante mais le probleme c'est que le compilo connait pas TMenuItemProperty, une recherche dans les sources et les dcu (apparement les noms de classe apparaissent en texte) ne m'a permis que de trouver sa trace que dans vcldesigner.dcp, pas de quoi m'indiquer quel uses ajouter ...

Si ca se trouve l'editeur s'appelle autrement ?
Mes recherches ne m'ont pas permis de trouver quelqu'un indiquant la reponse à ce probleme ... je vais peut etre proposer un défi Delphi