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

← →
Erik1 © (2004-12-15 17:55) [0]

Мне надо установить контрол с 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. Опишите пожалуста синтаксис установки этого свойства.

← →
MBo © (2004-12-15 18:02) [1]

uses typinfo
GetPropInfo
SetOrdProp

Даже знал отакой возможности, но так редко пользовался, что даже не пришло сразу в голову. Большое спасибо.

Как получить свойство ReadOnly в неизвестном наследнике? Найти похожие ветки