DELPHI中通过按钮点击出现C:\\1下文件的列表。。。然后通过双击能打开选中的文件。需要什么控件代码详细点

 我来答
遒劲且威武的小白桦s
2012-02-09 · TA获得超过115个赞
知道小有建树答主
回答量:160
采纳率:0%
帮助的人:191万
展开全部
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控件
alctel112358
2012-02-10 · 超过30用户采纳过TA的回答
知道答主
回答量:97
采纳率:0%
帮助的人:86.5万
展开全部
在Win 3.1面板下的三个控件
1、驱动器选择 TDriveComboBox 控件
在TDriveComboBox的DirList属性中填入TDirectoryListBox的对象名称
2、路径选择 TDirectoryListBox 控件
在TDirectoryListBox的FileList属性中填入TFileListBox的对象名称
3、文件选择 TFileListBox 控件

选择完后,自动关联,你可以运行一下体验效果
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式