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

Вниз

Как пройтись по всем компонентам на форме в рантайм.   Найти похожие ветки 

 
bloodman ©   (2004-09-15 16:17) [0]

Т.е. получить доступ например к Caption компонента. знаю что примерно так , но как учесть потомков стандартных классов , т.е.
 LAla = class(TGroupBox)....
Если я напишу такой цикл:
RootObj:TForm;
for i := 0 to Rootobj.ComponentCount do
begin
if rootobj is TGroupBox Then
...
end;
И как узнать есть ли у данного объекта определенное свойство?


 
_student   (2004-09-15 18:44) [1]

Проверка на существование свойства
value:=GetPropValue(Components[i],"Caption");
value будет равно varNULL если свойства не существует


 
bloodman ©   (2004-09-15 19:00) [2]

пишет Undeclared Indentifier на GetPropValue...


 
_student   (2004-09-15 19:08) [3]

Подключи модуль TypInfo


 
bloodman ©   (2004-09-15 19:44) [4]

понятно , спасибо.


 
begin...end ©   (2004-09-15 19:47) [5]


> for i := 0 to Rootobj.ComponentCount do
> begin
> if rootobj is TGroupBox Then
> ...
> end;


for i := 0 to Rootobj.ComponentCount - 1 do
begin
if rootobj.Components[i] is TGroupBox Then
...
end;

Может, так?



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

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

Наверх




Память: 0.45 MB
Время: 0.037 c
4-1093321751
Baloo
2004-08-24 08:29
2004.10.03
Координаты каретки в чужом приложении


1-1095161442
andre
2004-09-14 15:30
2004.10.03
про трей


3-1093948116
SH
2004-08-31 14:28
2004.10.03
SQL запрос для ADOQuery


14-1094834719
Шишкин Илья
2004-09-10 20:45
2004.10.03
Помогите оптимизировать процедуру


4-1092994681
eli
2004-08-20 13:38
2004.10.03
Как узнать раскладку клавиатуры





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский