Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как изменить общее свойство разнотипных контролов [D7, XP]


Страницы:   1 2

Дмитрий ©   (2016-02-12 18:09:00) 

Перебираю в цикле контролы, чтобы установить свойство ReadOnly
Однако    
(Controls[i] as TCustomEdit)... не видит свойства ReadOnly

Как лучше установить ReadOnly для разнотипных полей?
В наличии
TDBEdit,TDBMemo,TDBDateEdit - общий предок TCustomEdit
TDBLookupComboBox   - ...


Юрий Зотов   (2016-02-12 23:45:00) [21]

В том же цикле:

if GetPropInfo(Controls[i].ClassInfo, 'ReadOnly') <> nil then
 SetPropValue(Controls[i], 'ReadOnly', true);


Юрий Зотов   (2016-02-12 19:19:00) [22]

Через RTTI.


Дмитрий   (2016-02-12 18:38:00) [23]

можно ли поподробней?


KilkennyCat   (2016-02-12 18:26:00) [24]

дописать этим контролам отлов сообщения. генерировать енто сообщение. пущай сами ловят и устанавливаются.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо