| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить свойство ReadOnly в неизвестном наследнике?
Erik1 © (2004-12-15 17:55:00)Мне надо установить контрол с ReadOnly := True; но я нехочу описывать все типа контролов. С начала сделал так:
else if Control is TCustomEdit then
with Control as TCustomEdit do
begin
THackControl(Control).Color := ControlColor;
THackCustomEdit(Control).ReadOnly := not enable;
end
Но возникли проблемы для TJvCustomComboEdit и пр у них определяется свое свойство ReadOnly и я пишу не туда, поскольку THackCustomEdit(Control).ReadOnly <> TJvDBDateEdit(Control).ReadOnly Возникла идея получить это свойство по имени Control.MethodAddress('ReadOnly') или Control.FieldAddress('ReadOnly') точно непойму само свойство разумеется вызывает процеруру SetReadOnly. Опишите пожалуста синтаксис установки этого свойства.
Erik1 (2004-12-15 18:37:00) [1]Даже знал отакой возможности, но так редко пользовался, что даже не пришло сразу в голову. Большое спасибо.
MBo (2004-12-15 18:02:00) [2]uses typinfo
GetPropInfo
SetOrdProp
| |
