»

来自「Delphi技巧」· 代码 · 共 77 行

TXT
77 行
字号 
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title></title>
</head>

<body bgcolor="#FFFFFF">

<p><a href="/cgi-bin/seaftg/ccw97/9736/1?kw=delphi"><img
src="/icons/index.gif" alt="返回"></a> </p>

<hr size="4">

<p align="right">1997年 .第30期 .软件与编程版 </p>

<p><i>编程技巧 </i></p>

<hr>

<hr size="5">

<h1 align="center">动态提示的可视化实现 </h1>

<p align="right"><i>江苏省江阴市103信箱503号(214431)　杜香聪
</i></p>

<p>动态提示是指当用户的鼠标停在某图标或工具条上,所停之处便会出现黄底白字的描述行,提示功能、系统时间等。如果能在应用程序中加上动态提示,必将使该应用增色不少。下面笔者分别以市面上最常用的可视化开发工具Visual
Basic5.0、Delphi2.0、Visual Foxp ro3.0为例,介绍实现动态提示的编程。本文给出的例子非常简单,仅提示系统时间。
</p>

<h4 align="center">一、Visual Basic </h4>

<dl>
    <dd>在VB5.0下,选择FILE|NEW PROJECT,出现NEW PROJECT对话框,这时选择STANDARD
        EXE类型,选OK。进入VB的设计环境,出现一空白窗体(或称表单)form1,往窗体上加入Picture图形控件Picture1,设置Picture1的Autosize属性为True,Picture属性为一钟表形图片time.bmp
        。双击Picture1,设置Picture1的MouseMove事件为(加下划线的部分是由用户输入的语句,其它均由系统自动生成):
    </dd>
    <dd>Private Sub Picture1_MouseMove(Button As Integer,Shift As
        Integer,X As Single,Y As
        Single)Picture1.ToolTipText=&quot;现在时间:&quot;+Str(Time)
    </dd>
    <dd>End Sub </dd>
    <dd>Time是取系统时间的函数,Str()是将数字转化为字符串的函数。
        <h4 align="center">二、Visual Foxpro </h4>
    </dd>
    <dd>进入Visual Foxpro,选择文件(File|New)建新文件,出现文件类型选择,这时选Form新表单(或称窗体)。出现Form
        Wizard、New File表单向导与新表单选择,选新表单,不选表单向导。出现空白表单form1的设计状态,选中form1表单,单击右键,选取Property属性,设置for
        m1的Showtips属性为.T.(真),将一CommandButton命令按钮Command1加入表单。单击命令按钮。单击右键,选Property属性,设置Command1
        Picture属性为一钟表形小图标,调节命令按钮与小图标的大小。双击Command1设置Command1的MouseMove事件(加下划线的部分是由用户输入的语句,其它由系统自动生成):
    </dd>
    <dd>LPARAMETERS nButton,nShift,nXCoord,nYCoord </dd>
    <dd>This.Tooltiptext=‘现在时间:’+Time() </dd>
    <dd>This指当前控件(Command1),Time()是取系统时间的函数。
        <h4 align="center">三、Delphi </h4>
    </dd>
    <dd>进入Delphi,选File|New File。出现文件类型选择,选New页面,点Application,选OK。出现设计状态下空白窗体Form1,点中控件工具页面的Additional页面,选中Image控件,将Im
        age1加到Form1上。单击Image1,在对象观察器Object
        Inspector的Properties属性页面上设置Image1的Picture属性为一钟表形小图标,为美观起见设置Image1的AutoSize为True。在对象观察器的Events事件页面上选择OnMouseMove并双击,设置Image1的MouseMove事件(加下划线的部分是由用户输入的语句,其它由系统自动生成):
    </dd>
    <dd>procedure TForm1.Image1MouseMove </dd>
    <dd>(Sender:TObject;Shift:TShiftState;X,Y:lnteger); </dd>
    <dd>begin </dd>
    <dd>Image1.ShowHint:=TRUE; </dd>
    <dd>Image1.hint:=‘现在时间’+TimeToStr(Time); </dd>
    <dd>end; </dd>
    <dd>end. </dd>
    <dd>　</dd>
    <dd>以上程序在P100兼容机、Windows95环境、Visual
        Basic 5.0、Delphi 2.0、VisualFo xpro 3.0上全部运行通过。
    </dd>
</dl>
</body>
</html>

» - 源码说明

本页面展示了「Delphi技巧」中的 » 源码文件，采用 编程语言编写，共 77 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?