如何讓 OpenDialog 直接做開啟檔案的動作, 不跳出對話盒 ? |
答題得分者是:jow
|
bred
一般會員 發表:6 回覆:3 積分:1 註冊:2007-03-02 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
你不選擇要開啟的檔案名稱與路徑, 那在程式裡面
直接開檔就好了, 何須用到TOpenDialog? 例如下列程式碼, 哪些是你想省略不要的? [code cpp] //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TOpenDialog *od = new TOpenDialog(this); try{ if(od->Execute()){ TFileStream *f = new TFileStream(od->FileName, fmOpenRead); try{ Label1->Caption = f->Size; } __finally{ delete f; } } } __finally{ delete od; } } //--------------------------------------------------------------------------- [/code] |
bred
一般會員 發表:6 回覆:3 積分:1 註冊:2007-03-02 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
是這樣嗎?
[code cpp] //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString ReservedPath = GetCurrentDir(); try{ TOpenDialog *od = new TOpenDialog(this); try{ od->InitialDir = "D:\\"; <-預設路徑 od->FileName = "MYTEST.TXT";<-預設檔案 if(od->Execute()){ TFileStream *f = new TFileStream(od->FileName, fmOpenRead); try{ Label1->Caption = f->Size; } __finally{ delete f; } } } __finally{ delete od; } } __finally{ SetCurrentDir(ReservedPath); } } //--------------------------------------------------------------------------- [/code]
編輯記錄
jow 重新編輯於 2007-10-08 15:46:07, 註解 無‧
|
bred
一般會員 發表:6 回覆:3 積分:1 註冊:2007-03-02 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
od->Handle,
加上 利用FindWindow將其他form物件下所有的資料取出來 http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=30409 自己研究看有沒有辦法^^ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |