dpi9.htm

来自「delphi 教程 Delphi 6 常见的大部分函数的使用方法及使用例子」· HTM 代码 · 共 108 行

HTM

108 行

<html>
<head>
<title>Delphi3中制作快速按钮条</title>
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
</head>
<p align="center"><script src="../../1.js"></script></a>

<body bgcolor="#ffffff" text="#004D99" link="#0000EE" vlink="#551A8B" alink="#FF0000" marginwidth="5" marginheight="5" cellpadding="0" cellspacing="0" leftmargin="5" topmargin="1">
<div align="center"> 
  <center>
    <div align="center"> 
      <center>
        <table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
          <tbody> 
          <tr> 
            <td width=200 height="59"> 
              <div align="center">　 
          </tr>
          </tbody> 
        </table>
        <table border=1 bordercolordark=#ffffff bordercolorlight=#ffffff cellpadding=0 
cellspacing=0 width=680 align="center">
          <tbody> 
          <tr> 
            <td bgcolor=#ffffff height=15> 
              <div align=center class=H1>
                <div align="center">
                  <center>
                  </center>
                </div>
                 <big>Delphi3中制作快速按钮条</big> </font></div>
            </td>
          </tr>
          <tr valign=top> 
            <td class=H1 height=36> 
              <p class=H1><br>
                　　　快速按钮条上的每一个图形按钮都代表着一项常用的功能，同时，这些图形按钮尺寸较普通的图标大，可以放置更大、更形象的图形，甚至可以带上简短的提示，这对于用户执行最常用的功能很有帮　助。基于上述原因，越来越多的Windows应用程序采用快速按钮条来改善应用程序的界面。笔者在用Delphi3编程过程中，采用了两种不同的方法来实现快速按钮条，本文结合制作一个具有两组共六个按钮的快速按钮条的实例，列出了这两种方法的具体设计步骤。<br>
                　　一、Panel＋SpeedBubbon＋Bevel组合<br>
                　　1、在窗体上放置一个Panel1对象，作为图形按钮的载体。<br>
                　　2、设置Panel1的属性Caption为空，属性Align为alTop,调整其高度至合适尺寸。<br>
                　　3、在Panel1上放置六个SpeedButton按钮（选用SpeedButton，是因它具有浮动特性）。<br>
                　　4、在panel1上放置两个Bevel对象，调整其位置和大小，用于分隔按钮组。<br>
                　　5、调整SpeedButton1的大小及在Panel1中的位置。<br>
                　　6、选择SpeedButton1，设置其属性Flat为True。<br>
                　　7、单击SpeedButton1的属性Glyph所对应的省略号小按钮，打开PictureEditor窗口，选择一个象征“查询”的图标。设置属性ShowHint为True,属性Hint为“查询”。<br>
                　　8、按步骤5至7的方法，分别设置好其余几个SpeedButton按钮的属性。<br>
                　　这样，一个快速条就制作完成。运行时，快速按钮均以浮动方式显示，当鼠标移至其上时，即显示按钮外框，并显示小提示。<br>
                　　二、借用ToolBar<br>
                　　因TToolBar实际上是工具条组件，用它来实现快速按钮条，只能算借用。<br>
                　　1、在窗体上放置一个ToolBar1对象。<br>
                　　2、设置ToolBar1的属性EdgeBorders.ebLeft、ebTop、ebRight、ebButtom均为True；属性Flat为　True;调整ToolBar1的大小至合适尺寸。<br>
                　　3、选择ToolBar1，用右键呼出快速菜单，分别点击NewButton和NewSeparator增加六个按钮ToolButton和两条分隔栏线。<br>
                　　4、任意选择一个ToolButton按钮，调整其大小至合适尺寸，所有的ToolButton也同时被调整好。<br>
                　　5、设置ToolBar1的属性BorderWidth为3，以调整ToolButton的位置。<br>
                　　6、在窗体上放置一个ImageList1对象，设置它的属性Height和Width的数值，以适应较大尺寸的图像(这一步非常重要，读者可自己体会)。<br>
                　　7、双击ImageList1，通过“Add”按钮分别装入六个图像，与ToolBar1中的六个ToolButton一一对应。<br>
                　　8、设置ToolBar1的属性Images为ImageList1。<br>
                　　9、设置六个ToolButton的属性ShowHint为True，并分别设置各自的小提示属性Hint。<br>
                　　10、还可以设置ToolBar1的HotImages指定鼠标指向按钮时的图片集。<br>
                　　采用ToolBar实现的快速条在外观上与第一种方法类似。<br>
                　　三、孰优孰劣？<br>
                　　以上两种方法均能实现快速按钮条，但各有千秋：第一种设计过程较为简单，第二种方法则提供了更多的功能，如可用HotImages指定鼠标指向按钮时的图片集。读者不妨从中选择一种，并可继续完善其功能，例如将其放入CoolBar中。编程环境为Win 
                95、Delphi3。<br>
                　　(湖北省枝江市委办公室 曹祖权 443200) <b></b>　　　　　　　　　　　　　　　<br>
                　　　　　　　　　　　　　　　<font 
      color=#ffa000>　　<b>　　　　　　　　　　　　　　　　　　　　　　　　　　　 
      </td>
    </tr>
    </tbody> 
  </table>
</center>
    </div>
  </center>
</div>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>

dpi9.htm - 源码说明

本页面展示了「delphi 教程 Delphi 6 常见的大部分函数的使用方法及使用例子」中的 dpi9.htm 源码文件，采用 HTM 编程语言编写，共 108 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?