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

DriveBox 新增磁碟的方式

答題得分者是:m8815010
uhlin
一般會員


發表:8
回覆:6
積分:2
註冊:2003-07-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-29 08:19:23 IP:61.221.xxx.xxx 未訂閱
小弟這有個問題想請教大家一下..... 我在程式中使用了drivebox這個物件.... 當我放入隨身碟後它並找不到, 必需重新執行程式才能找到 這是什麼原因呢?? 有辦法解決嗎?? 無
------
m8815010
版主


發表:99
回覆:372
積分:289
註冊:2003-11-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-29 14:24:53 IP:61.63.xxx.xxx 未訂閱
引言: 小弟這有個問題想請教大家一下..... 我在程式中使用了drivebox這個物件.... 當我放入隨身碟後它並找不到, 必需重新執行程式才能找到 這是什麼原因呢?? 有辦法解決嗎?? 無
uhlin你好: 當然當然,元件本身並沒有 class="code">In .h #include //remember to include this file //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TMemo *Memo1; void __fastcall FormCreate(TObject *Sender); private: // User declarations TWndMethod OldFormWndProc; void __fastcall FormWndProc(TMessage& Message); public: // User declarations __fastcall TForm1(TComponent* Owner); }; In .cpp ~~ #include remember to include this file ~~ TForm1 *Form1; TDriveComboBox* dcb; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { OldFormWndProc=this->WindowProc; this->WindowProc=FormWndProc; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { dcb=new TDriveComboBox(this); dcb->Parent=this; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormWndProc(TMessage& Message) { OldFormWndProc(Message); if (Message.Msg==WM_DEVICECHANGE) { if (Message.WParam==DBT_DEVICEARRIVAL) { Memo1->Lines->Add("新插入了一項裝置!"); //發現有新插的裝置,則重新new一個TDriveComboBox元件,以達成updata dcb->Enabled=false; delete dcb; dcb=new TDriveComboBox(this); dcb->Parent=this; } if (Message.WParam==DBT_DEVICEREMOVECOMPLETE) { Memo1->Lines->Add("卸除了一項裝置!"); //發現有新拔的裝置,則重新new一個TDriveComboBox元件,以達成updata dcb->Enabled=false; delete dcb; dcb=new TDriveComboBox(this); dcb->Parent=this; } } } 針對updata的手法應該是要改一下比較好,目前我一下子沒有正解,uhlin可能要自已先研究一下了!
pwipwi
版主


發表:68
回覆:629
積分:349
註冊:2004-04-08

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-29 17:52:51 IP:211.76.xxx.xxx 未訂閱
提供一個方式可以正確的Update,
    DriveComboBox1->TextCase = tcLowerCase;// UpperCase can also work
加上m8815010大大的程式碼,我想應該就很完美了。 我想
系統時間:2024-04-29 10:06:14
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!