Mega Code Archive

 

Categories / Delphi / VCL

 

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;