全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1013
推到 Plurk!
推到 Facebook!

使滑鼠成為漏斗狀

尚未結案
luckfox
一般會員


發表:34
回覆:40
積分:24
註冊:2002-10-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-08-17 22:15:13 IP:218.32.xxx.xxx 未訂閱
在執行某些程式時,我想讓滑鼠在我的Form下都呈現漏斗狀,使使用者無法觸動 Form內的任一元件,直到我的某些程式碼結束後,才恢復正常,請問,以上的滑鼠控制該如何做到呢?
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-08-17 22:27:57 IP:211.20.xxx.xxx 未訂閱
luckfox 你好     在程序開始的地方加入 Screen->Cursor = crHourGlass;  // 漏斗游標    在程結束的地方加上   Screen->Cursor = crDefault; // 預設游標        _______________________________________ 深藍的魚,祝您好運..........連連
luckfox
一般會員


發表:34
回覆:40
積分:24
註冊:2002-10-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-08-17 23:56:17 IP:218.32.xxx.xxx 未訂閱
您好,我希望能夠在變成漏斗狀時候,無法按下任何BUTTON 但是目前這種狀態還是可以^_^
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-08-17 23:58:46 IP:203.204.xxx.xxx 未訂閱
luckfox 你好     改成這樣呢?     在程序開始的地方加入 Screen->Cursor = crHourGlass;  // 漏斗游標 Form1->Enabled = False; // 關閉互動    在程結束的地方加上   Form1->Enabled = True; // 開啟互動 Screen->Cursor = crDefault; // 預設游標    _______________________________________ 深藍的魚,祝您好運..........連連
andychang1690
資深會員


發表:20
回覆:694
積分:442
註冊:2003-03-14

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-08-18 10:56:49 IP:219.132.xxx.xxx 未訂閱
引言: luckfox 你好 改成這樣呢? 在程序開始的地方加入 Screen->Cursor = crHourGlass; // 漏斗游標 Form1->Enabled = False; // 關閉互動 在程結束的地方加上 Form1->Enabled = True; // 開啟互動 Screen->Cursor = crDefault; // 預設游標 _______________________________________ 深藍的魚,祝您好運..........連連
將Form1->Enable=false;會造成Form右上角的BorderIcons一起失效,
我主張使用
#include 
  TControl *pControl;
  for (int i=0;i<Form1->ComponentCount ;i  ) {
      pControl=(TControl *)Form1->Components[i];
      pControl->Enabled=false;
  }
一個個將元件Enable=true 或false。
雖然麻煩些但控制面大一點,因為照此方式,程式Form上你可以留一個
Button給使用者Cancel用。
請參考!
Andy Chang
------
Andy Chang
系統時間:2024-05-14 0:58:30
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!