請教前輩們： 我目前使用CheckListBox，我很想做到像CheckBox一樣，點到Caption，核取方塊就會自己打勾，如果有打勾就會不會打勾，所以我在CheckListBox的OnClick裡下了 CheckListBox1.Checked[CheckListBox1.ItemIndex] := not CheckListBox1.Checked[CheckListBox1.ItemIndex] 很高興，「點到字」的確核取方塊勾選了，可是，我要是「點選核取方塊」就選不起來了，不知前輩們有否解決過這樣的事可以指點一下或有類似點了字核取方塊會自己勾選，點了核取方塊也可以選取的元件？感謝感謝！

試試看

  if not (CheckListBox1.Checked[CheckListBox1.ItemIndex]) then
     CheckListBox1.Checked[CheckListBox1.ItemIndex];

回首來時路 也無風雨也無晴~~@.@

------
天行健
君子當自強不息~~@.@

我把你這段程式碼複製一份到OnClickCheck裡面就可以了

引言: 我把你這段程式碼複製一份到OnClickCheck裡面就可以了

pprayer 你不是上班時不可以上網嗎 知道我是誰嗎 CCCCCCCCCCCCC~~~~~~~~~~~~ < >< > 回首來時路 也無風雨也無晴~~@.@

感謝二位前輩抽空回答    T.J.B前輩：    您這段程式是放在onClick事件裡嗎？我用F7去追縱，是沒錯，可是點到字(也就是那個ItemIndex)核取方塊不會打勾，還是要點核取方塊    pprayer前輩： 您的方法我試了，還是不行    

引言: 試試看

  if not (CheckListBox1.Checked[CheckListBox1.ItemIndex]) then
     CheckListBox1.Checked[CheckListBox1.ItemIndex];

回首來時路 也無風雨也無晴~~@.@

原因是在Tchecklistbox之sourceocde內onMouseDown時若mouse在checkbox內就會勾選, 因此你寫在onclick內的程式使得mouse在checkbox內時勾選了兩次,結果就還原了. 如下寫在onmousedown內

type TTempCheck=class(TChecklistbox);
//由於下面用到Getcheckwidth為protected故須加此行    procedure TForm2.CheckListBox1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var i:integer;
begin
  i:=checklistbox1.ItemAtPos(point(x,y),True); //取得點選之item
  if i>=0 then
    if x > TTempCheck(Checklistbox1).GetCheckWidth then
//若點在checkbox右邊才執行
      CheckListBox1.Checked[i] := not CheckListBox1.Checked[i];
end;

發表人 - ccchen 於 2002/10/03 16:24:39

我是把同一段程式碼都寫進 OnClick 和 OnClickCheck 雖然測試的結果似乎兩個事件不會互相引發 但總覺得OnClickCheck會引發OnClick

ccchen 兄真是高手 sei可照ccchen兄的程式去做 絕對沒問題 回首來時路 也無風雨也無晴~~@.@

------
天行健
君子當自強不息~~@.@

ccchen前輩： 真的就是您的那段程式耶～ 嗚嗚嗚～真是太感動了 其實這個問題困擾我很久了，搜尋好多就是沒有找到這一類的文章 沒想到一post就得到前輩們熱心的回應 還在想如果沒解決就換別的元件算了 終於……還好解決了，不然我可能會變禿頭女說:p 再次感謝前輩們頂力相助！！