DELPHI基础教程：文件管理（二）[4]
子窗口主菜单包括File Function Directory三个菜单项 分别用于完成文件的基本管理功能 其它管理功能和目录管理功能
由于对话框界面设计很简单 这里不再进行赘述 读者可直接参考后面将给出的对话框界面图（图 ）进行设计
子窗口的创建 布置和关闭
子窗口的创建 布置由父窗口的Windows菜单控制 其菜单项如下
● New Windows : 创建新的子窗口
● Tile : 平铺
● Cascade : 层叠
● ArrangeIcon : 排列图标
● Minimized All : 极小化所有子窗口
子窗口的创建只需要简单调用窗体的Create方法
FileMan := TFMForm Create（Application）
子窗口的标准排列方式直接调用MDI窗口的标准方法Tile Cascade和ArrangeIcons
极小化所有子窗口的实现利用MDI窗口的两个属性 MDIChildCount和MDIChildren:
for i := to MDICount do
MDIChildren[i] Windowstate := wsMinimized;
子窗口关闭时释放内存空间 为此在子窗口TFMForm的OnClose事件中令
Action := OnFree;
为了保持和Windows的File Manager的一致性 我们也禁止关闭最后一个子窗口 这需要在子窗口的OnCloseQuery事件处理过程中实现
If FileManager MDIChildCount <= then
CanClose := False;
CanClose是OnCloseQuery事件过程返回的一个参数 用于判定窗口是否可以关闭
由于这一过程归子窗口所有 因而MDIChildCount前必须加上其对象名FileManager
但不幸的是 这样一来我们的程序无法终止了！原来MDI窗口关闭前首先关闭其所有的子窗口 如果子窗口不能关闭 MDI窗口也不能关闭
为此我们需要判断发出关闭消息的是子窗口的系统菜单还是菜单的Exit项
定义一个全局变量
var
ExitClick: Boolean;
在子窗口的Exit Click事件处理过程中
ExitClick := True;
FileManager Exit Click（Sender）
子窗口关闭前可以利用这一全局变量检测是否应关闭
If （FileManager MDIChildCount <= ） and （Not ExitClick） then
CanClose := False;
文件控件的联系
在本例中我们使用了一组新的控件 TabSet DirectoryOutline FileListBox 用于显示和选择驱动器 目录和文件 与（ ）中所用方法相比 使用这一组控件需要少量的代码支持
TabSet与DirectoryOutline的联系在TabSet的Click事件处理过程中建立
With DriveTabSet do
DirectoryOutline Drive := Tabs[TabIndex][ ];
DirectoryOutline与FileListBox的联系在DirectoryOutline的Change事件处理过程中建立
FileList Directory := DirectoryOutline Directory;
FileList Update;
DriveTabSet的自画风格显示
Dephi为一些控件提供了自画风格的显示 如ListBox ComboBox TabSet等 在缺省情况下 这些控件自动显示文本 而在自画风格下 拥有控件的窗体在运行时间内自己画出控件的每一项目
自画风格显示通常的应用是为项目除文本外再添加图形显示 能以自画风格显示的控件有一个共同特点 都拥有一个TStrings类型的项目链 由于TStrings类的特点（参第三章） 它们都可以加入一个和对应文本相联系的对象 而这正是自画风格显示的关键
通常情况下产生一个自画风格需要三个步骤
设置自画风格
向字符串链表添加图形对象
画出自画项目
设置自画风格
控件属性Style 用于设置自画风格 对于DriveTabSet 我们把Style 属性设置为tsOwnerDraw
对于ListBox ComboBox等控件的设置与TabSet略有差异 读者可参阅联机帮助文档
向字符串链表添加图形对象
在应用程序中添加图片部件
在本程序中我们设置了三个图片部件NetWork Floppy Fixed 并分别与三个位图文件NetWork bmp Floppy bmp Fixed bmp相关联
把图片添加到字符串链表中
根据字符串链表的性质 我们可以把对象与已存在的字符串建立联系 也可以同时添加字符串和对象 这里我们采用后一种方法
在子窗口的OnCreate事件处理过程中 我们利用一个循环依次检测从a到z的驱动器是否存在以及驱动器的类型 这利用了Windwos API函数GetDrivetype 如果驱动器不存在则返回 否则返回驱动器的类型（DRIVE_REMOVABLE DRIVE_FIXED DRIVE_REMOTE） 根据驱动器类型我们可以判断与文本（驱动器名）同时添加到Tabs中的不同图形对象 在添加过程中 DriveTabSet的TabIndex被设置为当前驱动器
程序清单如下
procedure TFMForm FormCreate（Sender: TObject）
var
Drive AddedIndex: Integer;
DriveLetter: Char;
begin
for Drive := to do
begin
DriveLetter := Chr（Drive + ord（ a ））
case GetDrivetype（Drive） of
DRIVE_REMOVABLE:
AddedIndex := DriveTabSet Tabs AddObject（DriveLetter Floppy Picture Graphic）
DRIVE_FIXED:
AddedIndex := DriveTabSet Tabs AddObject（DriveLetter Fixed Picture Graphic）
DRIVE_REMOTE:
AddedIndex := DriveTabSet Tabs AddObject（DriveLetter Neork Picture Graphic）
end;
if UpCase（DriveLetter） = UpCase（FileList Drive） then
DriveTabSet TAbIndex := AddedIndex;
end;
end;
画出自画项目
当把一个控件的风格设置为自画时 Windows不再负责往屏幕上画出控件的项目 而是为每个可见项目产生自画事件 应用程序可以通过处理自画事件画出控件的项目
确定自画项目的大小
对于TabSet而言 这在OnMeasureTab事件处理过程中完成 我们需要把DriveTabSet每个标签的宽度增大到足以同时放下文本和位图
procedure TFMForm DriveTabSetMeasureTab（Sender: TObject; Index: Integer;
var TabWidth: Integer）
var
BitmapWidth: Integer;
begin
BitmapWidth := TBitmap（DriveTabSet Tabs Objects[Index]） Width;
Inc（TabWidth + BitmapWidth）
end;
由于TStrings的Objects属性中存放的对象都是TObject类型 并没有Width属性 因而需要再把它转化为TBitmap类型的对象
BitmapWidth := TBitmap（DriveTabSet Tabs Objects[Index]） Width;
返回目录 DELPHI基础教程
编辑推荐
Java程序设计培训视频教程
J EE高级框架实战培训视频教程
Visual C++音频/视频技术开发与实战
Oracle索引技术
ORACLE G数据库开发优化指南
Java程序性能优化 让你的Java程序更快 更稳定
C嵌入式编程设计模式
Android游戏开发实践指南
lishixinzhi/Article/program/Delphi/201311/25239
