Discussion :

[bionoir]

Bonjour tt le monde!

J'ai un petit problème avec un composant que je viens de créer: le composant hérite d'une classe de composants de type DBMaskEdit (ça veut pas dire grande chose, mais au moins vous le savez). Cette classe n'a pas une propriété Text et je l'ai ajoutée de la façon suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
//////////////////////
type my_class = class(TcxDBmaskEdit)
...
protected
procedure SetText(const Value: TMaskedText);
function GetText: TMaskedText;
...
published
property Text : TMaskedText read GetText write SetText;
end;
\\\\\\\\\\\\\\\\\\\\\\\

Le problème survient quand j'emploie la composante en mode création: en effet la propriété Text est initialisée avec le nom de la composante!
Ce que je voudrais c'est que ce champs soit vide: j'ai essayé de l'initialiser dans le constructeur, mais ça n'a aucun effet.
C'est comme s'il y avait un pointeur qui relie le contenu de Text au nom de la composante

Des idées?


Merci!

[TicTacToe]

As-tu essayé de changé le nom de ta propriété en 'TextE' par exemple (des fois que 'Text' soit déjà au dessus, quoi qu'il te l'aurait signalé normalement, mais sait-on jamais... ?

As tu essayé de mettre un Defaut derrierre ta prop.

style

Code :

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

property Text : TMaskedText read GetText write SetText default '';

si Ton TMaskedText est de type chaine, sinon faire une constante init.

[bionoir]

Salut!

alors, j'ai déjà essayé une partie de ce que t'as suggéré:
- en mettant default, il y a un erreur de compilation "Les valeurs par défaut doivent être de type ordinal, pointeur ou petit ensemble"
- constante init n'a aucun effet

TMaskedText est de type string.

Malheureusement, pour ce qui en est de changer le nom de la propriété, j'obtiens un méchant débordement de pile (en mode création....puis Borland plante....). Ca ce peut que j'ai oublié qqchose...

En tout cas, en creusant un peu plus, j'ai remarqué que Text dérive d'une classe ancètre:
my_class <-- TcxDBMaskEdit <-- TcxCustomMaskEdit <-- TcxCustomTextEdit
dans cette dernière la propriété "Text : string" est définie en tant que public.

[LadyWasky]

En rajoutant ça, ça devrait le faire...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//////////////////////
type my_class = class(TcxDBmaskEdit)
...
protected
procedure SetText(const Value: TMaskedText);
function GetText: TMaskedText; override; //<--- Ajouter le Override
...
published
property Text : TMaskedText read GetText write SetText;
end;
\\\\\\\\\\\\\\\\\\\\\\\
...
function GetText: TMaskedText;
begin
  if csDesigning in ComponentState then result:=''
  else inherited;
end;

[bionoir]

Bien vu waskol!


(le seul hick, c'est qu'il n'y a pas besoin de "override" car les classes ancètres n'ont pas cette fonction)


Encore merci!