如何在光标处显示文本？

Question

用MOUSEMOVE事件即时在光标处显示文本，带框，有背景色，不透明或如何把Label动态定位到光标处？

Answer 1

把Label动态的定位到光标处好办:
在MouseMove中写如下的代码: 
    ReleaseCapture;
    Label1.Perform(WM_SYSCOMMAND,$F012, 0);

Answer 2

简单的方法，不过你最好加个标志来控制。procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 a:TRect;
 b:TPoint;
begin
 a:=rect(0,0,panel1.Width+panel1.Left,panel1.Height+panel1.Top);
 b.X:=x;
 b.Y:=y;
 if PtInRect(a,b) then showmessage('光标移入');
end;