在打开对话框里如何选择多个文件,将其文件名加到listbox中.(100分)

H

huzhaowei116

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #1

在打开对话框里如何选择多个文件,将其文件名加到listbox中.象超级解霸里的打开多个文件.

还有一个是:如何让我的应用程序的窗体在最前面,象东方影都一样.(原来有资料,现在找不到了)
我正在做一个flash播放器,和超级解霸差不多的界面和一些基本功能.
回答一个问题就有分

 

H

huzhaowei116

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #2

我需要的是让窗体始终在最前面,就象你用东方影都看碟片时,可以边看碟片,边看网页,边玩
游戏,而播放碟片的窗口一直在最前方,不会被其他窗口遮盖,东方影都里有这个功能的.

 

Z

ZQFILE

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #3

1>procedure TMainFrm.Button1Click(Sender: TObject);
var
I : integer;
begin

Listbox1.Items.Clear
IF Opendlg.Execute then

begin

If Opendlg.filename<>'' then
//If Opendlg.Files.Count>0
for I :=0 to opendlg.Files.Count-1 do

Listbox1.Items.Add(ExtractFileName(opendlg.files.Strings));
ListBox1.itemindex:=0;


end;

end;

2>FormStyle：=fsStayOnTop

 

Y

yangmingnian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #4

我有打开多个文件并把文件名加到checklistbox控件中的源程序
你看要不要，要的话我发给你！

 

B

blueboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #5

1、先令OpenDialog1.Options：=fAllowMultiSelect
再 ListBox1.Items:=OpenDialog1.Files;
2、Form1.FormStyle：=fsStayOnTop

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #6

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin

if opendialog1.execute then

try
for i:=0 to opendialog1.InstanceSize do

listbox1.items.add(form1.OpenDialog1.Files);
except
exit;
end;

end;

//注意opendialog的options里ofmultiselected:true;

 

H

huzhaowei116

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #7

Form1.FormStyle：=fsStayOnTop 好想只对主窗口有效,我把我的子窗体设置却无效,

就是一个form1主控制台,form2为播放的画面,form1可以在前,可是form2设置了不行.

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #8

還有
1.OpenDialog1.Options：=fAllowMultiSelect
procedure TForm1.Button1Click(Sender: TObject);
begin

if opendialog1.Execute then

listbox1.Items:=opendialog1.Files;
end;

2.procedure TForm1.FormCreate(Sender: TObject);
begin

setwindowpos(handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE or SWP_NOMOVE);
end;

 

H

huzhaowei116

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #9

多人接受答案了。