delphi7创建组件模板

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

winfredzhang

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

阅读量267

点赞数

CC 4.0 BY-SA版权

文章标签：模板

本文链接：https://blog.youkuaiyun.com/winniezhang/article/details/128568649

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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、创建组件模板。