Question

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

Answer 1

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控件

Answer 2

在Win 3.1面板下的三个控件
1、驱动器选择 TDriveComboBox 控件
在TDriveComboBox的DirList属性中填入TDirectoryListBox的对象名称
2、路径选择 TDirectoryListBox 控件
在TDirectoryListBox的FileList属性中填入TFileListBox的对象名称
3、文件选择 TFileListBox 控件

选择完后，自动关联，你可以运行一下体验效果