改造HINT的输出方式

2008-04-09 04:29:43来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

Delphi为每个可视构件(而非快速按钮专属)都提供了Hint
及ShowHint特性,其中Hint属性指定文本提示盒中的文本,
而ShowHint属性则决定鼠标指向构件时是否显示文本提示盒,
当ShowHint值为True时,显示文本提示盒。用户可在对象监
视器(ObjectInspector)的属性栏中设置或在程序中修改Hint
及ShowHint属性。
除此之外,Delphi还在类TApplication中提供了
HintColor、HintPause、HintHidePause、HintShortPause几
个属性来控制文本提示盒的输出方式。
一般来说,HintColor、HintPause、HintHidePause、
HintShortPause通常在Form的OnCreate事件中设定它们的值
(如有需要的话),如以下的一段程序。
ProcedureTMainForm.FormCreate(Sender:TObject);
begin
Application.HintPause:Κ0;{使文本提示盒立即出现}
Application.HintPause:ΚclBlue;{以蓝色小方框的
方式出现}
Application.HintHidePause:Κ10000;{延长停留时间
为10秒}
为10秒}
Application.HintShortPause:Κ100;
end;
另外,在编程中,我们还可以通过TApplication的OnHint
事件获取鼠标指向构件的Hint文本。
事实上,Delphi提供的文本提示盒输出方框、文本字型都
太小,既不美观亦不易看清。值得庆幸的是,Delphi2.0版提
供了全部构件的源代码,我们可以通过对类TApplication的
源码作一些小修改,增加一个HintFont的属性,即可象修改
HintColor一样来修改文本提示盒的字体、字型大小等。
TApplication是在Forms单元里定义的,因此让我们打开
Forms.pas单元文件来作以下一些修改:
ProcedureSetHintColor(Value:TColor};
ProcedureSetHintFont(Value:TFont);
{1997.04.19Mynewidea}
PropertyHintColor:
TColorreadFHintColorWriteSetHintColor;
PropertyHintFont:TFontwriteSetHintFont;
{1997.04.19Mynewidea}
ProcedureTApplication.SetHintColor(Value:Color);
上增加一个过程
{1997.04.19Mynewidea}
ProcedureTApplication.SetHintFont(Value:TFont);
beginif(ValueΙΛnil)and(FHinWindowΙΛnil)then
FHintWindow.Canvas.Font:ΚValue;
end;{1997.04.19Mynewidea}
别忘了在新增的语句旁作一些必要的注释,如上面的
{1997.04.19Mynewidea},可以很清楚地知道哪些语句是你
自己加进去的。
将修改后的Forms.pas存盘,然后重建库文件,以后在
你的库文件里,类TApplication就多了一个属性HintFont,
你就可以很轻易的通过HintFont属性来修改文本提示盒的字
体、字型大小了,如以下一段程序:
ProcedureTMainForm.FormCreate(Sender:TObject);
Var
NewHintFont:ΚTFont.Create;
begin
NewHintFont:ΚTFont.Create;
NewHintFont.Name:Κ′楷体-GB2312′;{设置字体为
楷体}
NewHintFont.Size:Κ12;{设置字型大小为12}
Application.HintFont:ΚNewHintFont;
end;
此外,Delphi绘制文本提示盒是在类THintWindow的方法
ActivateHint中通过WindowsAPI资源函数SetWindowPos来实
r> ActivateHint中通过WindowsAPI资源函数SetWindowPos来实
现的,这段代码在Controls.pas单元文件里,有兴趣的读者
可以进一步修改这段代码以绘制其他任意形状(如椭圆、圆等)
而不仅仅是矩型方框的文本提示盒!但或许最好的方法是从类
THintWindow继承下来一个新类,并重载Activate?Hint方
法,然后在应用程序开始处给变量HintWindowClass指派一个
新类实例

(摘自BBS 水木清华站)

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:Web Application 開 發 利 器 - WebSnap(四)

下一篇:Delphi真的不行了?