delphi7创建组件模板

最新推荐文章于 2023-08-31 21:00:50 发布

原创最新推荐文章于 2023-08-31 21:00:50 发布 · 293 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#模板

文章描述了一个过程，涉及在用户界面中放置组件，如dcDiskScanner1，然后在BitBtn1点击事件中配置扫描参数并执行搜索。当文件被找到时，dcDiskScanner1的FileFound事件触发，将文件名添加到CheckListBox1中。此外，还提到了创建和使用组件模板的概念。

1、放各种组件。

2、在事件中编写代码。

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   dcDiskScanner1.SearchMask:=Edit1.Text;
   dcDiskScanner1.IncludeSubfolders:=false;
   dcDiskScanner1.Folder:=self.dcFolderEdit1.Text;
   dcDiskScanner1.Execute;
end;

procedure TForm1.dcDiskScanner1FileFound(Sender: TObject; const FileName,
  FileType: String; const FileSize: Extended; const FileTime: TDateTime;
  const FileAttributes: TdcScanAttributes; const LargeIcon,
  SmallIcon: TIcon; SysImageIndex, TotalFiles: Integer;
  const TotalSize: Extended);
begin
       self.CheckListBox1.Items.Add(filename);
end;

3、创建组件模板。