sheelcombobox如何顯示全路徑目錄 我用 |
尚未結案
|
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
sheelcombobox如何顯示全路徑目錄 我用shellcombobox,shelllistview,shelltreevie來做Windows 資源管理器, 但sheelcombobox不能顯示全路徑目錄,同時也不能輸入路徑來瀏覽目錄.
希望高手幫我解決以上兩個問題!!
-------------------------------------------------------------
使用sheelcombobox不可能实现你的想法,因为上面三个控件的GetNamePath方法。不能取得[我的电脑][网上邻居][桌面]等路径,它们的表示形式如[我的电脑]-》rfMyComputer,而实际GetNamePath是“我的电脑”,取得名称而已。 除此以外你可以使用系统路径方式如
ShellComboBox1.Root:=ShellTreeView1.Selected.GetNamePath ;
但对[我的电脑][网上邻居][桌面]等无法操作。
而显示的时候你可以用combobox来实现!!!! 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
|
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
SORRY,我上面的GetNamePath应该改为path!!!!
可以用combobox、shelllistview,shelltreevie來做Windows 資源管理器。 procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin if key=vk_return then
try
ShellTreeView1.Root :=trim(ComboBox1.Text);
except
end;
end; procedure TForm1.ShellTreeView1Click(Sender: TObject);
begin
ComboBox1.Text:= ShellTreeView1.Path ;
end; 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
那combobox.items还做不做? 那将是一件大事,还用shellcombobox吧!!
如果不用resize的话,可以在shellcombobox的"正上方"用edit,然后再自理edit的KeyDown和text.
但我的sellcombobox是放在coolbar上的,是为了自动resize, shellcombobox的"正上方"再也放不上edit了.
如是手动处理form的resize事件,再放好shellcombobox,edit(删除coolbar).
我等一下再测试.
|
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
那combobox.items还做不做? 那将是一件大事,还用shellcombobox吧!!
如果不用resize的话,可以在shellcombobox的"正上方"用edit,然后再自理edit的KeyDown和text.
但我的sellcombobox是放在coolbar上的,是为了自动resize, shellcombobox的"正上方"再也放不上edit了.
如是手动处理form的resize事件,再放好shellcombobox,edit(删除coolbar).
我等一下再测试. 测试通过!!!!!
第一个问题完结!!!! 第二个问题请高手作答????????
--------輸入路徑來瀏覽目錄-----------
如果例如:
ShellComboBox1.Root:='c:\';整个界面将变化很大,这不是我想要的。
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
|
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
第二个问题请高手作答????????
--------輸入路徑來瀏覽目錄-----------
如果例如:
ShellComboBox1.Root:='c:\';整个界面将变化很大,这不是我想要的。 -------------------------------------------------------------------------------- 请问你指的界面将变化很大,是什么意识。请讲清楚点!!!! 风花雪月 e梦情缘 =====================================================================
是游览其它的目录不方便了.即是shelltreeview和shellcombobox的"根"范围小了.
|
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
|
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
|
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
第二个问题请高手作答????????
--------輸入路徑來瀏覽目錄-----------
如果例如:
ShellComboBox1.Root:='c:\';整个界面将变化很大,这不是我想要的。 --------------------------------------------------------------------------------
终于试到办法!!
用shelltreeview.path:='c:\';即可!!!! DT520 @>>>-->>---------一路风尘一路歌!!
|
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
第二个问题请高手作答????????
--------輸入路徑來瀏覽目錄-----------
如果例如:
ShellComboBox1.Root:='c:\';整个界面将变化很大,这不是我想要的。 --------------------------------------------------------------------------------
终于试到办法!!
用shelltreeview.path:='c:\';即可!!!! DT520 @>>>-->>---------一路风尘一路歌!!
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |