...prevent OnClick when changing CheckBox programmatically?

{
Wenn man programatisch eine CheckBox auf "checked' setzt, erzeugt das in
einigen Fällen ein ungewünschtes 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;

printed from
www.swissdelphicenter.ch
developers knowledge base