Mega Code Archive

 

Categories / Delphi / System

 

Prevent OnClick when changing CheckBox programmatically

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;