如何让显示Hint(当光标放置一个控件不动就会显示它的提示) 很简单的问题,高手请进.

Question

Delphi中TApplication的属性有HintColor及HintPause。   
    可以通过设置HintColor改变应用程序中的Hint的颜色、通过设置HintPause    
改变触发Hint的时间。

Answer 1

 　　当鼠标停留在某个控件上时，如果该控件的ShowHint特性为真则会显示出一个黄色的小窗口，这就是Hint窗口。如果从THintWindow派生一个类，并且将新类型赋值给全局变量HintWindowClass，则Delphi的Hint窗口将使用你所建立的新风格。
　　新类可以重载THintWindow的Paint方法来自己绘制Hint信息，例如下面这段代码将用红色填充整个Hint窗口，然后以黄色来显示Hint信息：
procedure TNewHintWindow.Paint;
var
 R:TRect;
begin
 with Canvas do
 begin
  Brush.Color:=clRed;
  Brush.Style:=csClear;
  Rectangle(0,0,Width,Height);
 end;
 R:=ClentRect;
 Inc(R.Top,3);
 Inc(R.Left,2);
 SetBKMode(Canvas.Handle,TRANSPARENT);
 Canvas.Font.Color:=clYellow;
 DrawText(Canvas.Handle, PChar(Caption),-1,R,DT_LEFT);
end;
　　如果希望Hint窗口是透明的，则可以在新类中加入一个消息捕获过程，使Hint窗口不执行重绘背景的操作：
type
 TNewHintWindow=class(THintWindow);
 private
  procedure WMEraseBKGND(var Message:TMessage); message WM_ERASEBKGND;
  . . .
 end;
procedure TNewHintWindow.WMEraseBKGND(var Message:TMessage);
begin
 Message.Result:=0;
end;

Answer 2

研究一下 faltstyle 的hit控件应该会有帮助

Answer 3

faltstyle 的hit东东怎么用呀, 请指教to Bob7946(X度空间)　我试试你的方法

Answer 4

to xueyin(雪莹)：你的邮箱？干脆给你几个控件用算了，这样简单点～～

Answer 5

to Bob7946(X度空间)　我系统里头也装了faltstye, 我不想重复掉原来的,你告诉我是哪一个行吗?

Answer 6

或者另给你一个更好的hint控件～～

Answer 7

有Demo的，你打开看看就会了。没什么难的～～

Answer 8

我一装上, 是不是重新把falstyle里头的flathint重复盖掉了

Answer 9

不是，我第2次发给你的是另外一个控件，你装上看看，这个比较好一点（我要下班了，你可以看看那个Demo程序，再见～～）

Answer 10

谢谢你, 有没有显示半透明的图片.作作为底图, 上面有Ｈint