Скачать: CL | DM;

Как получить свойство 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

---

← →
Erik1 ©   (2004-12-15 18:37) [2]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c