【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-DestPath.pas,希望本篇文章对您学习有所帮助。
unit DestPath;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl ;
type
TDestPathForm = class(TForm)
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DestPathForm: TDestPathForm;
implementation
uses
mainunit;
{$R *.dfm}
procedure TDestPathForm.Button1Click(Sender: TObject);
begin
Dir:=DirectoryListBox1.Directory;
Close;
end;
procedure TDestPathForm.Button2Click(Sender: TObject);
begin
close;
end;
procedure TDestPathForm.DriveComboBox1Change(Sender: TObject);
begin
DirectoryListBox1.Drive:=DriveComboBox1.Drive;
end;
end.
上一篇:
frmFontSettings.frm
下一篇:
“文化力”的认识和发展1805字