Изменить состояние CheckBox без вызова события OnClick

Question

Мне так интересно, когда я меняю состояние CheckBox

CheckBox->Checked=false;

Он вызывает событие CheckBoxOnClick, как его избежать?

Answer 1

Другой вариант - изменить защищенное свойство ClicksDisable, используя класс вставки, например:

type
  THackCheckBox = class(TCustomCheckBox)
  end;

procedure TCheckBox_SetCheckedNoOnClick(_Chk: TCustomCheckBox; _Checked: boolean);
var
  Chk: THackCheckBox;
begin
  Chk := THackCheckBox(_Chk);
  Chk.ClicksDisabled := true;
  try
    Chk.Checked := _Checked;
  finally
    Chk.ClicksDisabled := false;
  end;
end;

Answer 2

В новых версиях Delphi вы можете использовать помощники классов для добавления этой функциональности:

CheckBox.SetCheckedWithoutClick(False);

с помощью следующего помощника класса для VCL TCheckBox:

TCheckBoxHelper = class helper for TCheckBox
    procedure SetCheckedWithoutClick(AChecked: Boolean);
end;

procedure TCheckBoxHelper.SetCheckedWithoutClick(AChecked: Boolean);
begin
    ClicksDisabled := True;
    try
        Checked := AChecked;
    finally
        ClicksDisabled := False;
    end;
end;

Только для полноты: FMX TCheckBox будет вести себя аналогично (запуск OnChange). Вы можете обойти это, используя следующий помощник класса:

TCheckBoxHelper = class helper for TCheckBox
    procedure SetCheckedWithoutClick(AChecked: Boolean);
end;

procedure TCheckBoxHelper.SetCheckedWithoutClick(AChecked: Boolean);
var
    BckEvent: TNotifyEvent;
begin
    BckEvent := OnChange;
    OnChange := nil;
    try
        IsChecked := AChecked;
    finally
        OnChange := BckEvent;
    end;
end;

Отказ от ответственности: Спасибо, dummzeuch за оригинальную идею. Знайте об обычных подсказках относительно помощников класса.

Answer 3

Вы можете окружить код события onClick чем-то вроде

if myFlag then
  begin
    ...event code...
  end;

Если вы не хотите, чтобы он выполнялся, установите для myFlag значение false, а после изменения состояния флажка установите для него значение true.

Answer 4

Я надеюсь, что есть решение для кнопки, но вы можете сохранить текущее событие в переменной TNotifyEvent, затем установить для Checkbox.OnChecked значение nil и впоследствии восстановить его.

Answer 5

попробуйте так:

Checkbox.OnClick := nil;
try
  Checkbox.Checked := yourFlag;
finally
  Checkbox.OnClick := CheckboxClick;
end;

Answer 6

Простое решение - поместить ваш код onclick в событие onmouseup;

Answer 7

CheckBox.State := cbUnchecked; работает в Delphi, это не срабатывает onClickEvent AFAIK