说明: //显示任意一个目录的文件到TReeview中 unit uTreeViewDemo; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, FileCtrl; const SELDIRHELP = 1000; type TForm1 = class(TForm) TreeView1: TTreeV
<microrain> 在 上传 | 大小:204800