Delphi 技巧 - 改造HINT的输出方式

  Delphi为每个可视构件(而非快速按钮专属)都提供了Hint 及ShowHint特性,其中Hint属性指定文本提示盒中的文本, 而ShowHint属性则决定鼠标指向构件时是否显示文本提示盒, 当ShowHint值为True时,显示文本提示盒。用户可在对象监 视器(Object Inspector)的属性栏中设置或在程序中修改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秒}

    Application.HintShortPause:100;

  end;

  另外,在编程中,我们还可以通过TApplication的OnHint 事件获取鼠标指向构件的Hint文本。 事实上,Delphi提供的文本提示盒输出方框、文本字型都太小,既不美观亦不易看清。<

  值得庆幸的是,Delphi5提供了全部构件的源代码,我们可以通过对类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);

  begin

  if(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来实 现的,这段代码在Controls.pas单元文件里,有兴趣的读者 可以进一步修改这段代码以绘制其他任意形状(如椭圆、圆等) 而不仅仅是矩型方框的文本提示盒!但或许最好的方法是从类 THintWindow继承下来一个新类,并重载ActivateHint方法,然后在应用程序开始处给变量HintWindowClass指派一个新类实例.

 

Copyright 2000-2015 Gogusoft Software Co.,Ltd
 
 
长春市勾股软件有限责任公司
销售电话:043188833276(长春) 0755-32978958 (深圳)
电子信箱:销售sales@gogusoft.com 技术 tech@gogusoft.com 招聘 job@gogusoft.com
公司地址:长春市绿园区长白公路7777号 邮编:130012