DELPHI基础教程:文件管理(二)[4]

 我来答
天然槑17
2022-10-07 · TA获得超过1.1万个赞
知道大有可为答主
回答量:5876
采纳率:100%
帮助的人:30.9万
展开全部

  子窗口主菜单包括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

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式