![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как изменить общее свойство разнотипных контролов [D7, XP]
Дмитрий © (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]дописать этим контролам отлов сообщения. генерировать енто сообщение. пущай сами ловят и устанавливаются.