设置CheckBox而不激发Click事件

字体大小: 中小 标准 ->行高大小: 标准 中 大 
选择复选按钮不激发onClick

procedure CheckNoClick(CB: TCheckBox; CheckIt: Boolean);

begin

  CB.Perform(BM_SETCHECK, Ord(CheckIt), 0);

end;

Using this procedure, the code for checking a TComboBox

called ComboBox1 looks like this:

CheckNoClick(ComboBox1, True);

　

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/68376.html