作者:linzhenqun(风)
时间:<chsdate w:st="on" year="2005" month="8" day="14" islunardate="False" isrocdate="False"></chsdate>2005-8-14
Blog: http://blog.csdn.net/linzhengqun
-----------------------------------------------------------------------------
Delphi中使用提示是如此简单,只需将欲使用Hint的控件作如下设置:
ShowHint := True;
Hint := ‘提示信息’;
不必写一行代码,相当方便。
但有时我们又想自己定制提示的效果,使其看起来更美观更具个人特色,没关系,Delphi完全有办法让你写出自己喜欢的Hint效果。
Delphi的Hint功能实现归类在Application类中,所以我们可以在Application类中看到数个关于Hint的属性,这些属性可以设置Hint窗口的颜色,停留时间,出现时间等,设置了这些属性,将对整个工程的Hint功能起到影响。这样做的好处当然是统一了Hint的风格,并且让其他类不必去理会Hint的实现。
我们可以建一个简单的工程,并放一个按钮,将按钮的ShowHint设为True,再对Hint设一个值。运行程序,当光标指到按钮上时,便会出现一个提示窗口。
但如果我们在主窗口的创建事件中写下:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowHint := False;
end;
这些再运行程序,就不再有提示出现了,由此可知Application的ShowHint控制整个工程的Hint是否显示。
如果你对于平常所见的Hint窗口的颜色感到厌烦,那么可以设Application的HintColor为其他颜色。但此时有一个问题,如果HintColor设为黑色,则提示字体也为黑色,就看不到提示信息了。为此,我们得了解另一个全局对象,事实上当程序运行时,会创建三个全局对象:Application,Screen,Mouse,三个对象的职责非常明显。Screen封闭了运行的工程在屏幕上的状态,它有一个HintFont的属性,允许你设置提示信息的字体。
我们可以写如下的代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.HintColor := clBlack;
Screen.HintFont.Color := clWindow;
Screen.HintFont.Size := 14;
end;
运行程序看看效果,提示字体变为白色,且变大了。
另外Application有这三个属性:
HintHidePause,HintPause,HintShortPause,控制着提示窗显示的时间等。HintHidePause指定提示窗口在屏幕上显示的时间,以毫秒为单位。HintPause则指定当你将光标移到有提示的控件上时,经过多长时间才会出现提示窗口,以毫秒为单位。而HintShortPause呢表示当你快速移动光标经过一组有Hint的控件时,显示Hint的间隔。比如有两个有Hint的控钮,当你的光标快速从Btn1移到Btn2时,Hint经过HintShortPause毫秒才会显示出来。
Application中有一个比较特殊的属性Hint,我们不禁要奇怪,Hint指定的是那个控件的提示呢。其实Hint属性的一个很大的用途是给那些没有办法直接出现Hint窗口的控件一个机会,使它们能够通过别的方式出现提示。比如菜单,我们没有办法使菜单出现Hint窗口,但我们可以使菜单的Hint出现在状态栏上的。
我们在上面的工程主窗口中加一个状态栏,并在加一个菜单控件,设置几个菜单项,并给每个菜单荐的Hint属性设置一些字符串。
然后写下:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint := WhenHint;
end;
procedure TForm1.WhenHint(sender: TObject);
begin
StatusBar1.SimpleText := Application.Hint;
end;
运行程序,当你指到菜单项时,看,状态栏上出现了提示了。
上面可以看到,通过一些简单的代码,就可以使得提示别具特色。但人们是永远不会满足的,他们总想能不能做更好看的Hint呢,甚至对Hint的窗口风格提出了要求。Delphi的工程师们早想到了这一点,他们通过类的继承设定了一个提示窗口的父类,即我们看到的那个Hint窗口,我们可以通过继承它并覆盖它所提供的虚拟方法来写自己的提示窗口。
去读一读HintWindow的源码吧,你只要覆盖几个虚拟方法,你就可以做出很漂亮的提示出来了。
Delphi的Hint虽然简单易用,但却不够灵活,因为它提供了统一的风格,所以你不能指定某个提示为错误指示,可某个提示为警告提示。关于这个,我们要用API来实现,在网上找一个漫画式提示,有很多文章可用。这里不再说述。
分享到:
相关推荐
delphi 自制hint delphi 自制hint delphi 自制hint delphi 自制hint delphi 自制hint delphi 自制hint
Sherryhint.pas从这儿文件改过来的,很简单,有感兴趣的可以看一下…… Delphi 气泡形式的Hint提示(可以修改字体颜色和边框颜色)
delphi7实现 combobox下拉hint
Delphi中使用Hint体验windows的温柔 根据网友的 意思 。我做了一个测试的demo 现在上传,给爱好delphi的网友 http://blog.csdn.net/SmallHand/archive/2008/12/22/3580217.aspx
delphi hint 在Delphi中每个组件几乎都具有Hint属性,但是他们只是在鼠标移动到该组件的时候才显示Hint内容。幸运的是,Delphi为我们提供了一个THintWindow组件,这样就不需要我们手工封装一个组件了。为了实现我们...
Delphi的Hint 玻璃提示窗口的原理大概如此,当然其透明效果是一个假象,遇到后有动的物体就暴露无疑了。不过作为一个提示窗口,我想已经足够了。
delphi自定义的label_hint单元
TMenuItem没有ShowHint属性,其Hint的显示比较特别。针对TPopupMenu和TMainMenu需采取不同的方法。本Demo主要展示了TPopupMenu菜单的Hint显示。
由于cxGrid把Hint给封装了(它的Hint须在列宽不够大时才显示,且显示的内容不能随意),使得Hint无法方便地使用,经在cxGrid源码中分析,弄出这个给cxGrid附加格式化Hint的方法,在Delphi6、ExpressQuantumGrid_v5.8...
delphi自定义的label_hint
delphi 2010的Balloon Hint改到2007
在Form和Panel中一直显示hint,默认的在同一个控件内hint只会显示一次,此demo可以一直显示hint;
delphi自定义控件菜单PopupMenu 包括dbPopupMenu 及downbutton右键菜单 两个控件
Heir to TComboBox showing Hint for a row in the ListBox partnot completely visible.Author: Igor ShevchenkoDate of ... By default propertyhas a value of -1 which prohibits setting the horizontalScrollBar.
摘要:Delphi源码,界面编程,label_hint Delphi实现自定义的label_hint,引用了单元labelhint.dcu。
用Delphi做的带图标的提示栏(Hint窗口)
此文件是一个单元,主要解决TMenuItem的下拉菜单,也就是PopupMenu的Hint属性不管用的问题。 使用方法:下载此单元文件,然后复制到你的项目中,在需要实现功能的Form中引入此单元。然后在Form的onCreate方法中写 ...
How show hint in selected cell in DBGrid component.
本源码可以让delphi菜单控件(TMainMenu、TPopupMenu)出现一个提示窗口,相当于hint窗口,该方法支持第三方的菜单控件,而现在大部分软件包括微软的都没有主菜单或者弹出菜单出现提示窗口的功能,其实该功能应用...
1stClass for Delphi 6 3000.01 RegTool控件 1.0 Delphi 6.0 汉化资源包 繁简转换原码 WjTable Miniprint Miniprint_tryversion Spcomm Menubar mssql bitdbgrid exp aexcel aliased doci ln hgdbfilter kbmmemtab ...