【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“Demo2Frm.pas”一文,供大家参考学习
unit Demo2Frm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
uses
{SelectDirectory在FileCtrl单元中定义}
FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if SelectDirectory('Delphi实现文件夹管理树方法二演示','',S) then
Edit1.Text:=S;
end;
end.
上一篇:
frmFilterKeys.frm
下一篇:
浅析普外科围手术期抗菌药物的应用