...OnClick verhindern, wenn die 'checked' Eigenschaft einer CheckBox ändert?

Autor: Steve Philipp
Homepage: http://www.HeuristicResearch.com

Kategorie: VCL

{
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