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

元件的問題,關於檔案、目錄的開啟

尚未結案
Eigen
初階會員


發表:19
回覆:36
積分:26
註冊:2002-12-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-12-17 11:54:13 IP:61.218.xxx.xxx 未訂閱
元件的問題,關於檔案、目錄的開啟    我要做一個目錄為主、檔案為輔的選項    我原先用 win31 的 FileListBox DirectoryListBox DriveComboBOX 和一個 edit元件    做了一個輸入的畫面:    主要是希望:選擇 Drive (ex:c) : Edit顯示  C:\*.*             選擇 Directory (c:\temp) : Edit顯示出 C:\temp\*.*             選擇 File (ex:\1.txt) :Edit顯示 c:\temp\*.txt 下面程式碼最複雜的部份主要是在做 Edit 顯示的部份。    但是我現在發現了一個嚴重的問題:Win31的元件無法開啟網路芳鄰    我得全部重做,但是?我不知道該用什麼元件來做比較合適?    OpenDialog 又不能只選路徑,    http://netcity1.web.hinet.net/userdata/nep2314/Datas/Browse.zip 這個又不能選檔案    網站上的 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19554 是 DElphi的    我不會操作    請給個建議吧     言身寸 言身寸               //---------------------------------------------------------------------------    #include  #pragma hdrstop //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm2 *Form2; //--------------------------------------------------------------------------- __fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm2::DriveComboBox1Change(TObject *Sender) { DirectoryListBox1->Drive=DriveComboBox1->Drive; } //--------------------------------------------------------------------------- void __fastcall TForm2::DirectoryListBox1Change(TObject *Sender) { FileListBox1->Directory=DirectoryListBox1->Directory; } //--------------------------------------------------------------------------- void __fastcall TForm2::FileListBox1Change(TObject *Sender) { // if(DirectoryListBox1->Directory=="") // Edit1->Text="C:\\";// "*.*1"; if(FileListBox1->FileName=="") { if( DirectoryListBox1->Directory.SubString(DirectoryListBox1->Directory.Length(),1)=="\\") Edit1->Text=DirectoryListBox1->Directory "*.*"; else Edit1->Text=DirectoryListBox1->Directory "\\*.*"; } else { int i; for(i=FileListBox1->FileName.Length();i>0;i--) { if( FileListBox1->FileName.SubString(i,1)==".") { if( DirectoryListBox1->Directory.SubString(DirectoryListBox1->Directory.Length(),1)=="\\") Edit1->Text=DirectoryListBox1->Directory "*" FileListBox1->FileName.SubString(i,FileListBox1->FileName.Length()-i 1); else Edit1->Text=DirectoryListBox1->Directory "\\*" FileListBox1->FileName.SubString(i,FileListBox1->FileName.Length()-i 1); break; } } if(i==0) Edit1->Text=FileListBox1->FileName; } } //---------------------------------------------------------------------------
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-12-17 12:52:34 IP:203.73.xxx.xxx 未訂閱
引言: 網站上的 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19554 是 DElphi的 我不會操作 請給個建議吧
Eigen 你好: 請參考以下的做法 < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString Dir; if (SelectDirectory("挑選目錄", "", Dir)) Label1->Caption = Dir; } -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
Eigen
初階會員


發表:19
回覆:36
積分:26
註冊:2002-12-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-12-17 13:10:44 IP:61.218.xxx.xxx 未訂閱
引言:
引言: 網站上的 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19554 是 DElphi的 我不會操作 請給個建議吧
Eigen 你好: 請參考以下的做法 < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString Dir; if (SelectDirectory("挑選目錄", "", Dir)) Label1->Caption = Dir; } -- Enjoy Researching & Developing --
Hi RaynorPao, 你提供的這個方法和我找到的這個 http://netcity1.web.hinet.net/userdata/nep2314/Datas/Browse.zip很類似 不過一樣不適合,無法選擇檔案、處理,這樣我就無法限定在特定的檔案
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-12-17 13:19:34 IP:203.73.xxx.xxx 未訂閱
引言: 你提供的這個方法和我找到的這個 http://netcity1.web.hinet.net/userdata/nep2314/Datas/Browse.zip很類似 不過一樣不適合,無法選擇檔案、處理,這樣我就無法限定在特定的檔案
Eigen 你好: 以上這個做法只是要解決「網路芳鄰」的問題 至於你說的<>無法選擇檔案、處理問題 建議你自己在 > --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
ko
資深會員


發表:28
回覆:785
積分:444
註冊:2002-08-14

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-12-20 14:48:04 IP:61.221.xxx.xxx 未訂閱
ShellTreeView的元件應該是你要的..
------
======================
昏睡~
不昏睡~
不由昏睡~
kiki Tsai
一般會員


發表:3
回覆:9
積分:2
註冊:2002-10-29

發送簡訊給我
#6 引用回覆 回覆 發表時間:2002-12-20 16:13:47 IP:203.73.xxx.xxx 未訂閱
引言:
引言: 你提供的這個方法和我找到的這個 http://netcity1.web.hinet.net/userdata/nep2314/Datas/Browse.zip很類似 不過一樣不適合,無法選擇檔案、處理,這樣我就無法限定在特定的檔案
Eigen 你好: 以上這個做法只是要解決「網路芳鄰」的問題 至於你說的<>無法選擇檔案、處理問題 建議你自己在 > -- >< face="Verdana, Arial, Helvetica"> 我有試上述的方法....我是用SelectDirectory 和 FileListBox的元件 , 可是好像很沒有連貫性(先選完目錄再到FileListBox選File....) , 請問一下可以做出檔案總管的功能嗎?? 要放哪一個元件呢?? 我好像沒看到說.... 先謝謝各位前輩囉!!
kiki Tsai
一般會員


發表:3
回覆:9
積分:2
註冊:2002-10-29

發送簡訊給我
#7 引用回覆 回覆 發表時間:2002-12-20 17:03:29 IP:203.73.xxx.xxx 未訂閱
引言: 我有試上述的方法....我是用SelectDirectory 和 FileListBox的元件 , 可是好像很沒有連貫性(先選完目錄再到FileListBox選File....) , 請問一下可以做出檔案總管的功能嗎?? 要放哪一個元件呢?? 我好像沒看到說.... 先謝謝各位前輩囉!!
原來我只要放OpenDialog就是我要的囉.... 哈哈...真是的 謝謝 >
Eigen
初階會員


發表:19
回覆:36
積分:26
註冊:2002-12-05

發送簡訊給我
#8 引用回覆 回覆 發表時間:2002-12-23 08:23:44 IP:61.218.xxx.xxx 未訂閱
引言: 我有試上述的方法....我是用SelectDirectory 和 FileListBox的元件 , 可是好像很沒有連貫性(先選完目錄再到FileListBox選File....) , 請問一下可以做出檔案總管的功能嗎?? 要放哪一個元件呢?? 我好像沒看到說.... 先謝謝各位前輩囉!!
就是這個,檔案總管的功能,後來我想了很久才發現 我要的功能,只要能實做出目前windows下的檔案總管功能便能達到 有人有實做過檔案總管嗎? 目前我還沒找到相關的解決方法,而且且工作壓力大,暫時將這個部份丟著不管了 等那天有人能用bcb 寫出檔案總管,這個問題就好解決了 (為什麼我在書上看到的 example 都是用 win31的元件在做呀?)
系統時間:2024-04-20 18:30:51
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!