改造HINT的输出方式

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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 水木清华站)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航