[Delphi 6] Problème avec la propriété Text d'un composant

Version imprimable

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:

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!

08/12/2005, 10h13
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:

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

si Ton TMaskedText est de type chaine, sinon faire une constante init.
08/12/2005, 11h01
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.

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

Code:

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;

08/12/2005, 11h23
bionoir

Bien vu waskol! :merci:

(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!