如何人为设置了CheckBox1.Checked := False/True时, 不让系统触发CheckBox1的OnClick事件? (除了设置变量控制外)

above 问题点数：20、回复次数：7Top

1 楼cscer（时光之石头）回复于 2003-07-04 11:58:07 得分 5

CheckBox1.OnClick   :=   nil;  
  CheckBox1.Checked   :=   True;  
  CheckBox1.OnClick   :=   Self.CheckBoxOnClick;Top

2 楼yzykjh（言子儿）回复于 2003-07-04 12:00:08 得分 2

CheckBox1.EnabledTop

3 楼dickeybird888（小鸟）回复于 2003-07-04 12:02:24 得分 3

CheckBox1.Checked     :=   True;  
  CheckBox1.ReadOnly   :=   False;Top

4 楼bluecyclone（）回复于 2003-07-04 12:02:30 得分 0

学习！Top

5 楼cscer（时光之石头）回复于 2003-07-04 12:03:23 得分 0

刚才应该是CheckBox1.OnClick   :=   CheckBox1Click;Top

6 楼songzhiwei（song）回复于 2003-07-04 12:08:18 得分 5

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      onclick:tnotifyevent;  
  begin  
  onclick:=checkbox1.OnClick;  
  checkbox1.OnClick:=nil;  
  checkbox1.Checked:=not   checkbox1.Checked;  
  checkbox1.OnClick:=onclick;  
  end;Top

7 楼ljmanage（过客）回复于 2003-07-04 12:13:46 得分 5

选择复选按钮不激发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);  
   
  　  
  Top

相关问题

• checkbox1
• checking
• true

• 帖主：simonvc
• cscer
• yzykjh
• dickeybird888
• songzhiwei
• ljmanage

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载