📄 003.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题--用户界面-->改造HINT的输出方式</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题--用户界面 改造HINT的输出方式">
<META NAME="description" CONTENT=" - DELPHI专题--用户界面 - 改造HINT的输出方式">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index1.html">返回</a>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">改造HINT的输出方式</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p>Delphi为每个可视构件（而非快速按钮专属）都提供了Hint及ShowHint特性，其中Hint属性指定文本提示盒中的文本，而ShowHint属性则决定鼠标指向构件时是否显示文本提示盒，当ShowHint值为True时，显示文本提示盒。用户可在对象监视器（ObjectInspector）的属性栏中设置或在程序中修改Hint及ShowHint属性。<br>
除此之外，Delphi还在类TApplication中提供了HintColor、HintPause、HintHidePause、HintShortPause几个属性来控制文本提示盒的输出方式。<br>
一般来说，HintColor、HintPause、HintHidePause、HintShortPause通常在Form的OnCreate事件中设定它们的值（如有需要的话），如以下的一段程序。<br>
<br>
ProcedureTMainForm．FormCreate（Sender：TObject）；<br>
begin<br>
Application．HintPause：=0；｛使文本提示盒立即出现｝<br>
Application．HintPause：=clBlue；｛以蓝色小方框的方式出现｝<br>
Application．HintHidePause：=10000；｛延长停留时间为10秒｝<br>
Application．HintShortPause：=100；<br>
end；<br>
另外，在编程中，我们还可以通过TApplication的OnHint事件获取鼠标指向构件的Hint文本。<br>
事实上，Delphi提供的文本提示盒输出方框、文本字型都太小，既不美观亦不易看清。值得庆幸的是，Delphi2．0版提供了全部构件的源代码，我们可以通过对类TApplication的源码作一些小修改，增加一个HintFont的属性，即可象修改HintColor一样来修改文本提示盒的字体、字型大小等。<br>
TApplication是在Forms单元里定义的，因此让我们打开Forms．pas单元文件来作以下一些修改：<br>
<br>
ProcedureSetHintColor（Value：TColor｝；<br>
ProcedureSetHintFont（Value：TFont）；｛1997．04．19Mynewidea｝<br>
PropertyHintColor：TColorreadFHintColorWriteSetHintColor；<br>
PropertyHintFont：TFontwriteSetHintFont；｛1997．04．19Mynewidea｝<br>
ProcedureTApplication．SetHintColor（Value：Color）；<br>
上增加一个过程<br>
<br>
｛1997．04．19Mynewidea｝<br>
ProcedureTApplication．SetHintFont（Value：TFont）；<br>
begin<br>
if （ValueΙΛnil） and （FHinWindowΙΛnil） then<br>
FHintWindow．Canvas．Font：=Value；<br>
end；｛1997．04．19Mynewidea｝<br>
<br>
别忘了在新增的语句旁作一些必要的注释，如上面的｛1997．04．19Mynewidea｝，可以很清楚地知道哪些语句是你自己加进去的。<br>
将修改后的Forms．pas存盘，然后重建库文件，以后在你的库文件里，类TApplication就多了一个属性HintFont，你就可以很轻易的通过HintFont属性来修改文本提示盒的字体、字型大小了，如以下一段程序：<br>
<br>
ProcedureTMainForm．FormCreate（Sender：TObject）；<br>
Var<br>
NewHintFont：=TFont．Create；<br>
begin<br>
NewHintFont：=TFont．Create；<br>
NewHintFont．Name：=′楷体－GB2312′；｛设置字体为楷体｝<br>
NewHintFont．Size：=12；｛设置字型大小为12｝<br>
Application．HintFont：ΚNewHintFont；<br>
end；<br>
此外，Delphi绘制文本提示盒是在类THintWindow的方法ActivateHint中通过WindowsAPI资源函数SetWindowPos来实现的，这段代码在Controls．pas单元文件里，有兴趣的读者可以进一步修改这段代码以绘制其他任意形状（如椭圆、圆等）而不仅仅是矩型方框的文本提示盒！但或许最好的方法是从类THintWindow继承下来一个新类，并重载Activate⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -