如何用鼠标点击文件夹图标，Edit1.text:=“这个文件夹的全路径名"?(100分)

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #21

procedure TForm1.DirectoryListBox1Click(Sender: TObject);
var
i:integer;
j:integer;
s:string;
begin
i:=DirectoryListBox1.ItemIndex;
j:=0;
while j<=i do
begin
s:=DirectoryListBox1.Items.Strings[j];
if j>1 then
edit1.text:=edit1.text+'/'+s
else
edit1.text:=edit1.text+s;
j:=j+1;
end;
end;


想偷懒都不行，这回可以啦
改改拿去用吧

 

F

Fanny501

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #22

看看，只要一个API函数
uses FileCtrl;
=================
if SelectDirectory((Sender as TButton).caption,'',sDir ) then
LabDataManagePath.Caption := sDir;

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #23

beta,:你的方法真行！ 正是我要的，试过了你的代码，牛！
lanbing1400：你的方法也可以，但不能脱离我的程序加文件名，
Fanny501,：谢谢你，可我不会用呀！

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #24

beta:看你答问题不但解决了问题还多学了很多知识，过瘾！

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #25

Fanny501:怎么用的啊!大哥

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #26

beta:有点问题在Program Files目录下的文件夹不生效！

 

F

Fanny501

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #27

引用单元； uses FileCtrl;
var
sDir: string;
begin
SelectDirectory( '对话框的标题','',sDir )
//sDir 放的就是你要的文件夹路径

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #28

beta:你的正确！我写错了
"c:/Delphi/Exe/DFW.exe" "%1"
我写成了
"c:/Delphi/Exe/DFW.exe %1"
加分!本来想全加给你!不好意思啦!嘻嘻

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #29

多人接受答案了。