Скачать: CL | DM;

Свойство 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!

---

← →
Dedushka_Mazai ©   (2004-03-12 17:08) [9]

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

---

← →
WebErr ©   (2004-03-12 17:08) [10]

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

А чем Вам вариант

property Text: TCaption default "";

не нравиться?

---

← →
alless ©   (2004-03-12 17:15) [11]

2 WebErr ©   (12.03.04 17:08) [10]
Da, no nado pisati i Read i Write.
Default bez nih ne rabotaiet.

---

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

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

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c