Свойство Text.

← →
alless © (2004-03-12 14:32) [0]

Здраствуйте.
Когда ставляю на форме мой компонент(наследник от TEdit) то Delphi в свойство Text ставляет текст: TMyComponent1. Это мне не надо потому что я в Text использоваю только цифры.
Вопрос: Как поставить мой техт а не его.
Пробовал писать конструкторе:
Text:="123" //допустим
не получяется.
Спосибо.

← →
TransparentGhost (2004-03-12 16:01) [1]

A ti pishesh do ili posle
Inherited Create(AOwner); ?

Poprobuj posle.

← →
alless © (2004-03-12 16:07) [2]

v nacealo.

← →
TransparentGhost (2004-03-12 16:22) [3]

nado :
constructor .....
Begin
Inherited Create(AOwner);
{ ...
....
... vsjo chto ugodno (svoi ustanovki)}
End;

← →
alless © (2004-03-12 16:26) [4]

ia tak i sdelal.

← →
TUser © (2004-03-12 16:47) [5]

property Text:strning read write default "your text";

← →
serge © (2004-03-12 16:50) [6]

> TUser © (12.03.04 16:47) [5]

Кстати, с текстом не пробовал но вот с цветом точно.
property Color: TColor read FColor write SetFColor default clWhite; - по барабану - clBlack по дефолту выходит, пока в конструкторе объекта явно не пропишешь.

← →
Юрий Зотов © (2004-03-12 16:57) [7]

Попробуйте такой конструктор:

inherited;
ControlStyle := ControlStyle - [csSetCaption];

← →
alless © (2004-03-12 17:01) [8]

2 Юрий Зотов © (12.03.04 16:57) [7]
Sposibo. Rabotaiet!

2TUser:
default - это не из той оперы. эта беда указывает на то, чтобы не сохранять указанное значение свойства в dfm.

> Юрий Зотов © (12.03.04 16:57) [7]
> alless © (12.03.04 17:01) [8]

А чем Вам вариант
property Text: TCaption default "";
не нравиться?

> WebErr © (12.03.04 17:08) [10]

> А чем Вам вариант
> property Text: TCaption default "";
> не нравиться?

Да мне-то он нравится. Беда только в том, что он не понравится компилятору. А так бы все хорошо.

Впрочем, даже если бы компилятор его и пропустил, то он бы все равно не сработал. Именно из-за csSetCaption.

Свойство Text. Найти похожие ветки