DELPHI中通过按钮点击出现C:\\1下文件的列表。。。然后通过双击能打开选中的文件。需要什么控件代码详细点
2个回答
展开全部
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl, shellapi; //注意使用ShellExecute需要先引用shellapi单元
type
TForm1 = class(TForm)
FileListBox1: TFileListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FileListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
self.FileListBox1.Directory := 'C:\\1'; //设置文件列表的路径
end;
procedure TForm1.FileListBox1Click(Sender: TObject);
begin
ShellExecute(application.Handle, 'open', pchar(self.FileListBox1.FileName), nil, nil, SW_SHOWNORMAL); //调用外部程序打开相应的文件
end;
end.
//使用win3.1面板下面的filelistbox控件
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl, shellapi; //注意使用ShellExecute需要先引用shellapi单元
type
TForm1 = class(TForm)
FileListBox1: TFileListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FileListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
self.FileListBox1.Directory := 'C:\\1'; //设置文件列表的路径
end;
procedure TForm1.FileListBox1Click(Sender: TObject);
begin
ShellExecute(application.Handle, 'open', pchar(self.FileListBox1.FileName), nil, nil, SW_SHOWNORMAL); //调用外部程序打开相应的文件
end;
end.
//使用win3.1面板下面的filelistbox控件
展开全部
在Win 3.1面板下的三个控件
1、驱动器选择 TDriveComboBox 控件
在TDriveComboBox的DirList属性中填入TDirectoryListBox的对象名称
2、路径选择 TDirectoryListBox 控件
在TDirectoryListBox的FileList属性中填入TFileListBox的对象名称
3、文件选择 TFileListBox 控件
选择完后,自动关联,你可以运行一下体验效果
1、驱动器选择 TDriveComboBox 控件
在TDriveComboBox的DirList属性中填入TDirectoryListBox的对象名称
2、路径选择 TDirectoryListBox 控件
在TDirectoryListBox的FileList属性中填入TFileListBox的对象名称
3、文件选择 TFileListBox 控件
选择完后,自动关联,你可以运行一下体验效果
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询