Предотвратить OnClick при именении TCheckBox

Delphi , Компоненты и Классы , Флажки

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
Wenn man programatisch eine CheckBox auf "checked' setzt, erzeugt das in 
einigen Fallen ein ungewunschtes OnClick Ereignis. 
}

 { 
When you set a checkbox to Checked the checkbox generates a potentially 
unwanted 'OnClick' event... 
}



 //To prevent it: 
procedure SetCheckBox(chk: TCheckBox; B: Boolean);
 var
   N: TNotifyEvent;
 begin
   with Chk do
   begin
     N := OnClick;
     OnClick := nil;
     Checked := B;
     OnClick := N;
   end;
 end;

Привет! Вот перевод текста на русский язык:

Код - это простая функция, написанная на Delphi, которая помогает предотвратить срабатывание неожиданного события OnClick, когда программно устанавливаешь контроль TCheckBox. Это может произойти, если динамически включать или выключать чекбокс и хочешь избежать вызова события OnClick.

Работает она следующим образом:

1. Функция SetCheckBox принимает два параметра: chk, который является экземпляром TCheckBox, и B, которое - булевое значение, указывающее, включать или выключать чекбокс.
2. Внутри функции она сначала получает текущий обработчик события OnClick для чекбокса с помощью строки N := OnClick;.
3. Затем она временно отключает событие OnClick, установив OnClick в nil. Это предотвращает вызов события, когда чекбокс включается или выключается.
4. Далее она устанавливает свойство Checked чекбокса в значение, указанное в параметре B.
5. Наконец, она восстанавливает оригинальный обработчик события OnClick, присваивая полученный обработчик обратно OnClick.

Вот пример использования этой функции:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetCheckBox(MyCheckBox1, True); // Установить MyCheckBox1 в включенное состояние
end;

В этом случае функция SetCheckBox предотвратит вызов события OnClick, когда устанавливаешь MyCheckBox1 в включенное состояние.

В статье описывается способ предотвратить срабатывание события OnClick при изменении состояния checkbox-компонента TCheckBox.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Флажки ::