Title: 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;