Текущий архив: 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.043 c
