📄 howto_showhint_auto.htm
字号:
<html><head><title>如何实现浮动、状态的自动提示</title><meta http-equiv=Content-Type content=text/html; charset=gb2312><meta name=GENERATOR content=Microsoft FrontPage 3.0><meta name=Microsoft Border content=none></head><body style=font-family: 宋体, serif; font-size: 9pt><center><span style=font-family: 宋体, serif; font-size: 12pt><b>如何实现浮动、状态自动提示</b></span></center><center><span style=font-family: 宋体, serif; font-size: 9pt>西安 <a href=mailto:delphifan@990.net>梁 明</a></span></center><hr><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt>如果注意到Delphi4提供给TStatusBar类的新特性---AutoHint，那么要获得这样的效果简直就是太简单了！这样做，我们不需要写一句代码，而且，我们可以设置显示浮动提示的截获时间、停留时间、背景颜色等等。<br> 下面，我来解释一下如何快速实现这个功能：<br> 首先，我们必须明白，Delphi下的Hint实际上由两部分组成，中间由“|”隔开，第一部分就是我们需要的浮动提示，第二部分就是状态栏提示。当然，要说明的是，如果我们只提供第一部分，那么，系统将不区别这来两者，以同样的提示显示出来。<br> 何为浮动提示，大家很容易理解，而状态栏提示即是在窗体的状态栏上显示的提示。对于浮动提示，我们很容易获得，只需将其组件的ShowHint属性设为True即可。在Delphi4以前，要实现状态栏提示，必须自己手动添加一个过程来实现，但是，在Delphi4中只需设置TStatusBar的一个属性即可，但是这也要付出代价，那就是“只能”在状态栏的第一个Panel中显示。<br> 具体做法是：<br> 1、为需要提示的组件添加Hint属性（由两部分组成），并设置其ShowHint=True；<br> 2、为窗体添加TStatusBar，并添加一个Panel，设置其AutoHint=True；<br> 注意：如果你不想显示浮动提示，只需将Hint设置为“|what you want...”即可，意思就是将第一部分设置为空！下面，我将举一例，程序本身并无价值，但是能体现出这个意思。<br> 关于如何改变浮动提示的截获时间、停留时间、背景颜色等等，可以查阅一下全局变量TApplication的帮助，本文暂时不涉及到，今后将专文论述！<br> </span></li> <li><b><span style=font-family: 宋体, serif; font-size: 9pt>下面是源代码(不需要一句！)：<br> </span></b></li> <li><span style=font-family: 宋体, serif; font-size: 9pt>{=======Copyright by Liangming }<br> { Delphifan WorkRoom }<br> unit main;<br> <br> interface<br> <br> uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> Menus, ComCtrls, ToolWin, StdActns, ActnList, ImgList, StdCtrls;<br> <br> type<br> TForm1 = class(TForm)<br> MainMenu1: TMainMenu;<br> F1: TMenuItem;<br> E1: TMenuItem;<br> H1: TMenuItem;<br> StatusBar1: TStatusBar;<br> N1: TMenuItem;<br> N2: TMenuItem;<br> N3: TMenuItem;<br> A1: TMenuItem;<br> N4: TMenuItem;<br> N5: TMenuItem;<br> N6: TMenuItem;<br> T1: TMenuItem;<br> C1: TMenuItem;<br> P1: TMenuItem;<br> H2: TMenuItem;<br> I1: TMenuItem;<br> N7: TMenuItem;<br> A2: TMenuItem;<br> CoolBar1: TCoolBar;<br> ToolBar1: TToolBar;<br> ToolButton1: TToolButton;<br> ToolButton2: TToolButton;<br> ToolButton3: TToolButton;<br> ImageList1: TImageList;<br> procedure FormCreate(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br> <br> var<br> Form1: TForm1;<br> <br> implementation<br> <br> {$R *.DFM}<br> <br> procedure TForm1.FormCreate(Sender: TObject);<br> begin<br> <br> end;<br> <br> end.</span></li></ul><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt><b>窗体As text代码</b></span></li> <li><span style=font-family: 宋体, serif; font-size: 9pt>object Form1: TForm1<br> Left = 198<br> Top = 215<br> Width = 437<br> Height = 251<br> Caption = '测试浮动、状态栏提示-->梁明'<br> Color = clBtnFace<br> Font.Charset = GB2312_CHARSET<br> Font.Color = clWindowText<br> Font.Height = -12<br> Font.Name = '宋体'<br> Font.Style = []<br> OldCreateOrder = False<br> OnCreate = FormCreate<br> PixelsPerInch = 96<br> TextHeight = 12<br> object StatusBar1: TStatusBar<br> Left = 0<br> Top = 205<br> Width = 429<br> Height = 19<br> AutoHint = True<br> Panels = <<br> item<br> Width = 50<br> end><br> SimplePanel = False<br> end<br> object CoolBar1: TCoolBar<br> Left = 0<br> Top = 0<br> Width = 429<br> Height = 24<br> AutoSize = True<br> Bands = <<br> item<br> Control = ToolBar1<br> ImageIndex = -1<br> MinHeight = 20<br> Width = 425<br> end><br> DockSite = True<br> object ToolBar1: TToolBar<br> Left = 9<br> Top = 0<br> Width = 412<br> Height = 20<br> AutoSize = True<br> ButtonHeight = 20<br> ButtonWidth = 55<br> Caption = '快捷工具栏'<br> DragKind = dkDock<br> DragMode = dmAutomatic<br> EdgeBorders = []<br> Flat = True<br> ShowCaptions = True<br> TabOrder = 0<br> object ToolButton1: TToolButton<br> Left = 0<br> Top = 0<br> Caption = '文件(&F)'<br> Grouped = True<br> MenuItem = F1<br> end<br> object ToolButton2: TToolButton<br> Left = 55<br> Top = 0<br> Caption = '编辑(&E)'<br> Grouped = True<br> MenuItem = E1<br> end<br> object ToolButton3: TToolButton<br> Left = 110<br> Top = 0<br> Caption = '帮助(&H)'<br> Grouped = True<br> MenuItem = H1<br> end<br> end<br> end<br> object MainMenu1: TMainMenu<br> Images = ImageList1<br> Left = 248<br> Top = 88<br> object F1: TMenuItem<br> Caption = '文件(&F)'<br> object N1: TMenuItem<br> Caption = '打开'<br> Hint = '打开'<br> ImageIndex = 0<br> ShortCut = 16463<br> end<br> object N2: TMenuItem<br> Caption = '-'<br> GroupIndex = 1<br> end<br> object N3: TMenuItem<br> Caption = '保存'<br> GroupIndex = 1<br> Hint = '保存'<br> ShortCut = 16467<br> end<br> object A1: TMenuItem<br> Caption = '另存为(&A)'<br> GroupIndex = 1<br> Hint = '另存为'<br> end<br> object N4: TMenuItem<br> Caption = '-'<br> GroupIndex = 1<br> end<br> object N5: TMenuItem<br> Caption = '关闭'<br> GroupIndex = 1<br> Hint = '关闭'<br> ShortCut = 32883<br> end<br> end<br> object E1: TMenuItem<br> Caption = '编辑(&E)'<br> object N6: TMenuItem<br> Caption = '恢复'<br> Hint = '恢复'<br> ShortCut = 16474<br> end<br> object T1: TMenuItem<br> Caption = '剪切(&T)'<br> Hint = '剪切'<br> ShortCut = 16472<br> end<br> object C1: TMenuItem<br> Caption = '拷贝(&C)'<br> Hint = '拷贝'<br> ImageIndex = 1<br> ShortCut = 16451<br> end<br> object P1: TMenuItem<br> Caption = '粘贴(&P)'<br> Hint = '粘贴'<br> ImageIndex = 2<br> ShortCut = 16470<br> end<br> end<br> object H1: TMenuItem<br> Caption = '帮助(&H)'<br> object H2: TMenuItem<br> Caption = '主题(&H)'<br> Hint = '主题'<br> ImageIndex = 1<br> end<br> object I1: TMenuItem<br> Caption = '索引(&I)'<br> Hint = '索引'<br> end<br> object N7: TMenuItem<br> Caption = '-'<br> end<br> object A2: TMenuItem<br> Caption = '关于(&A)'<br> Hint = '关于...'<br> end<br> end<br> end<br> object ImageList1: TImageList<br> Left = 208<br> Top = 48<br> Bitmap = {<br> 494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600<br> 0000000000003600000028000000400000001000000001001000000000000008<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 000000000000000000000000000000000000000000000000E07FF75EE07FF75E<br> E07FF75EE07FF75EE07F00000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 00000000000000000000000000000000000000000000FF7F0000E07FF75EE07F<br> F75EE07FF75EE07FF75EE07F0000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 00000000000000000000000000000000000000000000E07FFF7F0000E07FF75E<br> E07FF75EE07FF75EE07FF75EE07F000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 00000000000000000000000000000000000000000000FF7FE07FFF7F00000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 00000000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F<br> FF7FE07FFF7FE07F000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 00000000000000000000000000000000000000000000FF7FE07FFF7FE07FFF7F<br> E07FFF7FE07FFF7F000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 00000000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F<br> FF7F000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 00000000000000000000000000000000000000000000EF3D0000000000000000<br> EF3D000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 000000000000000000000000000000000000424D3E000000000000003E000000<br> 2800000040000000100000000100010000000000800000000000000000000000<br> 000000000000000000000000FFFFFF00FFFF000000000000FFFF000000000000<br> FFFF000000000000FFFF000000000000C00F0000000000008007000000000000<br> 800300000000000080010000000000008001000000000000800F000000000000<br> 800F000000000000801F000000000000C0FF000000000000C0FF000000000000<br> FFFF000000000000FFFF00000000000000000000000000000000000000000000<br> 000000000000}<br> end<br> end<br> </span></li></ul><ul> <li> </li> <li>版主：梁明</li> <li>日期：1999-03-16-1：37<br> E-mail：<a href=mailto:delphifan@990.net>delphifan@990.net</a></li></ul><hr></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -