Вниз
Скачать: CL | DM;

Доступ к свойству компонента   Найти похожие ветки 

← →
NiX   (2003-09-08 17:35) [0]

Есть компонент TC:TControl, далее создал поле TEDIT:
TC:=TEdit.create(...);

Как получить доступ к свойствам Tag, Name и Visible, если точно неизвестно, является ли этот TC TEdit, TMemo или каким-нибудь другим контролем?


← →
Palladin ©   (2003-09-08 17:37) [1]

простым приведением типов если не боишся
TEdit(TC).tag и пр...
или используя As
(TC as TEdit).tag


← →
Игорь Шевченко ©   (2003-09-08 17:39) [2]

TC.Visible - публичное свойство TControl

TC.Tag и TC.Name - достаточно объявления TControl, так как это публичные свойства TComponent, от которого наследуется TControl


← →
ZEE ©   (2003-09-08 17:40) [3]

а если боишся - то:
if TC is TEdit then TEdit(TC).tag:=...;


← →
NiX   (2003-09-08 17:49) [4]

2Palladin
2ZEE

Неизвестно, TC - это TEdit, Tmemo или другой контроль. TEdit я взял к примеру.

2Игорь Шевченко

Я так и написал, выдавало ошибку EAccessViolation.

Так что проблема все же осталась - необходимо иметь доступ к свойствам Visible,Tag,Name


← →
ZEE ©   (2003-09-08 17:52) [5]

попробуй TControl(TC).Tag:=


← →
NiX   (2003-09-08 17:59) [6]

большое спасибо всем откликнувшимся - проблема была в установочном файле Delphей. После переустановки все работает :)


← →
Skier ©   (2003-09-08 18:00) [7]


> Я так и написал, выдавало ошибку EAccessViolation.
>
> Так что проблема все же осталась - необходимо иметь доступ
> к свойствам Visible,Tag,Name

Код покажи


← →
malkolinge ©   (2003-09-08 19:28) [8]

Tag, name - Появились начиная с TComponenta
visible - Tcontrol

т.е в твоем случае ничего ни к чему приводить не надо :)



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

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



Память: 0.46 MB
Время: 0.014 c
6-71792
laider
2003-07-22 17:08
2003.09.22
net send + delphi 4 + win 98 ???!!!


1-71643
il_
2003-09-09 08:42
2003.09.22
Общие вопросы


1-71600
qwerty2
2003-09-09 18:01
2003.09.22
ActiveX и передача значений функции


3-71556
Russko
2003-08-29 13:15
2003.09.22
Работа с TTable


1-71572
Globus
2003-09-09 21:08
2003.09.22
SOS ! Не работает raise Exception.Create( Сообщение )




   Наверх