如何在当前光标处输出hint(10)

如何在当前外部程序窗口的鼠标光标处，输入一个hint提示条：你好，我是中国人。就是在当前激活窗口的鼠标光标处。

procedure TForm1.Button1Click(Sender: TObject);var FHintWindow:THintWindow; R:TRect; sMess:String;begin sMess:= 'HintMess'; FHintWindow := THintWindow.Create(self); FHintWindow.Canvas.Font.Assign(self.Font); R.Left:=Mouse.CursorPos.X; R.Right:=R.Left+ FHintWindow.Canvas.TextWidth(sMess); R.Top:=Mouse.CursorPos.Y; R.Bottom:=R.Top+FHintWindow.Canvas.TextHeight(sMess); FHintWindow.ActivateHint( R, sMess);// Sleep(3000);// FHintWindow.ReleaseHandle;end;

你给的好像不行，颜色与delphi的hint不一样，而且容易死。最好能给一个像窗口上的hint提示条一样的淡黄色条，并且不能一执行就死机，也不能太消耗系统内存？