線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:814
推到 Plurk!
推到 Facebook!

請問各位先進有關 CheckListBox 的問題

尚未結案
samsu
一般會員


發表:6
回覆:2
積分:1
註冊:2004-01-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-01-15 19:05:34 IP:210.68.xxx.xxx 未訂閱
請問各位先進 小弟我想在CheckListBox中 按住右鍵用滑鼠上下移動即可讓items checked == true 而不是一項一項的去打勾 請各位先進指點一下小弟......謝謝
ENIX007
高階會員


發表:28
回覆:274
積分:185
註冊:2003-11-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-01-16 08:53:22 IP:210.243.xxx.xxx 未訂閱
samsu您好 以下程式碼是可行的  
 void __fastcall TForm1::CheckListBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
    TPoint pos;
    pos.x = X;
    pos.y = Y;
    if (Shift.Contains(ssRight))
        CheckListBox1->Checked[CheckListBox1->ItemAtPos(pos,true)] = true;
}
先決條件是滑鼠右鍵點下去的位置必須要有Item存在,否則會產生錯誤< > 這只是簡單達到您的要求,可以從這個方向再把功能加強< > 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~
------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~
samsu
一般會員


發表:6
回覆:2
積分:1
註冊:2004-01-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-01-16 09:17:51 IP:210.68.xxx.xxx 未訂閱
ENIX007 您好, 謝謝您的幫忙,我的問題ok了! 謝謝!
系統時間:2024-07-01 9:08:19
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!