各位大大： 小弟又有问题求教， 比方说，当我在程式的button1中写下"checkbox1.checked:=true"时，相应的checkbox1就相当于被mouse click,里面的程式就会被执行，但我现在只希望当我在按下button1时，只是checkbox1被打上勾，但里面的程式不执行，这样可以吗？（即checkbox1只在真正用mouse click时里面的程式起作用） Thank you very much! 發表人 - luowy651 於 2004/05/04 17:19:19

試試:

procedure TForm1.Button3Click(Sender: TObject);
begin
  checkbox1.Checked := true;
end;    procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if ActiveControl = CheckBox1 then // 因為直接點選 CheckBox, Focus 必定在 CheckBox1 上, 由此來判斷
    showmessage('clicked');
end;

luowy651 你好

試試以下程式
Type
  TTemp = Class(TButtonControl) // 建立臨時類別
  public
    property ClicksDisabled; // 開放屬性
  End;    procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  SaveClicksDisabled : Boolean; // 保存屬性用
begin
  SaveClicksDisabled := TTemp(CheckBox1).ClicksDisabled ;//保存原屬性值
  TTemp(CheckBox1).ClicksDisabled := True; //  設定不反應Click事件
  CheckBox1.State := cbChecked; // 更改
  或
  CheckBox1.checked := True; // 更改
  TTemp(CheckBox1).ClicksDisabled := SaveClicksDisabled;//還原屬性值
end;

PS:這一招也是從hagar大大處學來的 發表人 - chance36 於 2004/05/04 19:44:34

啊 Chance36 大大, 不要褒小弟了啦! 要追溯的話, 都是從 ccchen/Justmade/william/Mickey 等大大那裏偷來的啦! 老實說, 還沒用過

引言: 啊 Chance36 大大, 不要褒小弟了啦! 要追溯的話, 都是從 ccchen/Justmade/william/Mickey 等大大那裏偷來的啦! 老實說, 還沒用過 >< face="Verdana, Arial, Helvetica"> 呵呵...大家客氣了...我記得我沒有相關的文章回應阿......老了. 言歸正傳, 把 class="code"> procedure TForm1.CheckBox1Click(Sender: TObject); begin showmessage('CheckBox Clicked !'); end; procedure TForm1.Button1Click(Sender: TObject); var CheckBoxClickEvent : TNotifyEvent; begin CheckBoxClickEvent := CheckBox1.OnClick; // 存下 CheckBox1.OnClick CheckBox1.OnClick := nil; //清掉 CheckBox1.OnClick try CheckBox1.Checked := not CheckBox1.Checked; finally CheckBox1.OnClick := CheckBoxClickEvent; // 恢復 CheckBox1.OnClick end; end;

感谢Hagar,Chance36和Mickey大大的精彩回应，简直令小弟大开眼界！ 但由于Hagar大大是第一个回应，且方法最为简单，分就给Hagar大大了. 再次感谢各位大大！ 哪一天小弟有机会也能象诸位大大那样给人解惑就好了。