Текущий архив: 2004.01.05;
Скачать: CL | DM;

Вниз

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! Из потомка можно обратиться..

---

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

Текущий архив: 2004.01.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.05 c