[night_light]

Здравствуйте!
в компоненте TCheckBox в Delphi 7 при программном изменении свойства Checked вызывается обработчик OnClick, как этого избежать?

[NumLock]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  FSaveNotifyEvent: TNotifyEvent;
begin
  FSaveNotifyEvent:=CheckBox1.OnClick;
  CheckBox1.OnClick:=nil;
  CheckBox1.Checked:=not CheckBox1.Checked;
  CheckBox1.OnClick:=FSaveNotifyEvent;
end;

[night_light]

дык так и делаю
неужели по людски в Delphi не получиться? (

[Страдалецъ]

А что значит по людски? Вам и предложили вполне нормальный вариант подмены указателей.

[night_light]

Спасибо за ответы!