ClicksDisabled

← →
DNS (2003-12-21 16:22) [0]

Написал я компонент (потомок TCheckBox), для работы с реестром, в котором есть метод CheckState, который вызываеться в цикле по масиву компонент, и в нем меняеться свойство Checked, при этом автоматически выполняеться OnClick компонента... А это вообщем то и не нужно :( У предка на изменение checked повешена проверка - если свойство ClicksDisabled поставить, то не будет выполняться OnClick компонента (это в TButtonControl).
Проблема же в том, что обратиться к этому свойству нельзя, почему и как это обойти ? Подскажите пожалуйста!
procedure TCustomCheckBox.SetState(Value: TCheckBoxState); begin if FState <> Value then begin FState := Value; if HandleAllocated then SendMessage(Handle, BM_SETCHECK, Integer(FState), 0); if not ClicksDisabled then Click; end; end;

← →
jack128 © (2003-12-21 16:51) [1]

> Проблема же в том, что обратиться к этому свойству нельзя,
>

как нельзя? ClicksDisabled - это ж protected! Из потомка можно обратиться..

ClicksDisabled Найти похожие ветки