Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.23;
Скачать: CL | DM;

Вниз

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

 
stone ©   (2002-12-11 16:20) [0]

Как узнать есть ли у компонента свойство Caption?

var
i : integer;
C : TComponent;
begin
for i := 0 to ComponentCount-1 do
begin
C := Components[i];
- как тут узнать, есть ли у данного TComponent свойство Caption
end;
end;


 
MBo ©   (2002-12-11 16:25) [1]

см. модуль typinfo.pas


 
stone ©   (2002-12-11 16:52) [2]

Спасибо, разобрался


 
BlackTiger   (2002-12-11 17:13) [3]

Я нашел код, который проверяет наличие какого либо свойства (проверял только для Caption) в библиотеке IniLang.
Если кому надо, то вот он

function HasProperty(comp:TComponent;prop:String):boolean;
begin
result:=(getPropInfo(comp.classInfo,prop)<>nil) and comp.name<>"");
end;

Используется так

if HasProperty(Button1, "Caption") then begin
// ...
end;


 
Юрий Зотов ©   (2002-12-11 18:54) [4]

> BlackTiger (11.12.02 17:13)

Загляните в исходники модуля TypInfo - еще не то найдете. И без всяких левых библиотек.

"Левых" - это потому, что в коде ошибка (не хватает скобки). А еще потому, что проверка Comp.Name здесь совершенно не нужна. И еще потому, что стандартная функция IsPublishedProp делает то же самое - причем, для любых объектов, а не только для компонентов.

Снова велосипеды на квадратных колесах... о, боже!


> stone

RTTI дает возможность проверить только published-свойства. В Вашем случае можно сделать более общую проверку, причем очень просто. Дело в том, что свойство Caption впервые появляется в классе TControl (только оно у него protected). Поэтому проверка элементарна:
if Components[i] is TControl then ... // свойство Caption есть

А для доступа к protected-свойству можно использовать приведение класса:

type
TFriendControl = class(TControl);
...
if Components[i] is TControl then
TFriendControl(Components[i]).Caption := "Vova";



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

Текущий архив: 2002.12.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
7-75009
olphi
2002-10-20 15:50
2002.12.23
Как узнать путь каталога Windows?


7-75003
no name
2002-10-19 14:28
2002.12.23
Пароль на ScreenSaver


1-74762
Daken
2002-12-10 21:20
2002.12.23
Не подскажите как удалить бордер и скролы у WebBrowser а


14-74935
Александр
2002-12-01 09:26
2002.12.23
Delphi 7


1-74642
Supreme
2002-11-29 17:27
2002.12.23
Ограничение границ при перетаскивании объекта