Discussion :

[avigeilpro]

Bonjour à tous.
Je suis en train de développer un composant, et je cherche à faire une propriété un peu comme Color.
Je m'explique :
J'ai une batterie de constante et j'aimerais créer une propriété qui m'affiche la petite fleche et où s'afficherai la liste de tous les noms de constantes. Mais j'aimerais aussi pouvoir y affecter sa valeur numérique.
Dans le cas de la propriété Color de type TColor, on a la liste de toutes les couleurs (clWhite ...) mais on peux aussi faire :

Code :

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

Form1.Color:=$FFFFFF;

Quelqu'un saurait-il la syntaxe pour definir le type permettant de faire cela ?

Je redonne un autre exemple car j'ai peur de ne pas être très précis dans mes explication:
Je voudrais pouvoir faire cela un peu :

Code :

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

1
2
 
Type TSemaine = (Lundi=1,Mardi=2,Mercredi=3,Jeudi=4,Vendredi=5,Samedi=6,Dimanche=7);

Puis pouvoir faire :

Code :

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

1
2
3
4
5
 
var
MonJour:TSemaine;
begin
MonJour:=Mardi;

Ou

Code :

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

1
2
3
4
5
 
var
MonJour:TSemaine;
begin
MonJour:=5; //Vendredi

[TicTacToe]

Bonjour

Il suffit de caster ta valeur

Code :

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

1
2
3
4
var
MonJour:TSemaine;
begin
MonJour:=TSemaine( 5 ); //Vendredi

[ShaiLeTroll]

La TColor, n'est pas associée à une Enumération mais à un Ensemble de constante, c'est pour cela qu'il n'y a pas besoin de faire Ord(clTruc) ...

Il faut savoir que derrière, il y a un tableau, de chaine qui associe via des TIdentMapEntry, une valeur numérique TColor et une Chaine

ensuite dans la section initialisation, tu as

Code :

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

RegisterIntegerConsts(TypeInfo(TColor), IdentToColor, ColorToIdent);

Qui permet d'associer au Type TColor, les fonctions de conversion Integer vers Chaine et Chaine vers Integer;

[avigeilpro]

Pourrais-je avoir un petit exemple concret s'il te plait ShaiLeTroll ?
Je suis débutant en Delphi.
Merci de vos réponses

[tourlourou]

Code :

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

1
2
3
4
5
6
const
  lundi=1;
  mardi=2;
 
type
  TJour=lundi..dimanche;

[avigeilpro]

Merci tourlourou mais lorsque j'utilise mon type pour une propriété, la liste ne s'affiche pas

[tourlourou]

yes !
il faut pê regarder du côté de RegisterPropertyEditor, avec TEnumPropertyEditor comme éditeur de propriété

[avigeilpro]

OK je vais regarder ça, merci

[avigeilpro]

Euh... je capte strictement rien
j'ai eu beau regarder l'aide sur RegisterPropertyEditor j'ai absolument rien compris
Personne n'aurait un exemple à me donner ?
Je voudrait "simplement" une propriété de type Integer qui affiche quelque constantes dans l'inspecteur d'objet, mais que l'on puisse lui affecter toutes les valeurs que l'on veut.
Je vous remercie tous d'avance