VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之改造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提供的文本提示盒输出方框、文本字型都太小,既不美观亦不易看清。值得庆幸的是,Delphi2.0版提供了全部构件的源代码,我们可以通过对类TApplication的源码作一些小修改,增加一个HintFont的属性,即可象修改HintColor一样来修改文本提示盒的字体、 
字型大小等。 

  TApplication是在Forms单元里定义的,因此让我们打开Forms.pas单元文件来作以下一些修改: 

  ProcedureSetHintColor(Value:TColor}; 
  ProcedureSetHintFont(Value:TFont);{1997.04.19 MyNewIdea} 
  Property HintColor:TColor read FHintColor Write SetHintColor; 
  Property HintFont: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} 

  别忘了在新增的语句旁作一些必要的注释,如上 模?997.04.19Mynewidea},可以很清楚地知道哪些语句是你自己加进去的。 

  将修改后的Forms.pas存盘,然后重建库文件,以后在你的库文件里,类TApplication就多了一个属性HintFont,你就可以很轻易的通过HintFont属性来修改文本提示盒的字体、字型大小了,如以下一段程序: 

  ProcedureTMainForm.FormCreate(Sender:TObject); 
  Var 
  NewHintFont : TFont; 
  begin 
  NewHintFont:=TFont.Create; 
  NewHintFont.Name:=楷体-GB2312;{设置字体为楷体} 
  NewHintFont.Size:=12;{设置字型大小为12} 
  Application.HintFont:=NewHintFont; 
  end; 

  此外,Delphi绘制文本提示盒是在类THintWindow的方法ActivateHint中通过WindowsAPI资源函数SetWindowPos来实现的,这段代码在Controls.pas单元文件里,有兴趣的读者可以进一步修改这段代码以绘制其他任意形状(如椭圆、圆等)而不仅仅是矩型方框的文本提示盒!但或许最好的方法是从类THintWindow继承下来一个新类,并重载ActivateHint方法,然后在应用程序开始处给变量HintWindowClass指派一个新类实例。

相关教程