开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DirDemoForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

DirDemoForm.pas：源码内容
  1. unit DirDemoForm;
  3. interface
  5. {$WARN UNIT_PLATFORM OFF}
  7. uses
  8.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  9.   Db, Grids, DBGrids, StdCtrls, MdDsDir, ComCtrls, MdDsCustom,
  10.   MdDsList, ShellCtrls;
  12. type
  13.   TForm1 = class(TForm)
  14.     DBGrid1: TDBGrid;
  15.     DataSource1: TDataSource;
  16.     ShellTreeView1: TShellTreeView;
  17.     MdDirDataset1: TMdDirDataset;
  18.     MdDirDataset1FileName: TStringField;
  19.     MdDirDataset1TimeStamp: TDateTimeField;
  20.     MdDirDataset1Size: TIntegerField;
  21.     MdDirDataset1Attributes: TStringField;
  22.     MdDirDataset1Folder: TBooleanField;
  23.     procedure ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
  24.   private
  25.     { Private declarations }
  26.   end;
  28. var
  29.   Form1: TForm1;
  31. implementation
  33. {$R *.DFM}
  35. procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
  36. begin
  37.   MdDirDataset1.Close;
  38.   MdDirDataset1.Directory := ShellTreeView1.Path + '*.*';
  39.   MdDirDataset1.Open;
  40. end;
  42. end.