如何使控件的hint再次出现

Question

delphi控件有个hint大家都知道,他在鼠标移动到上面的时候,会显示出来,但是有个问题,
鼠标在控件内部移动时,hint不会更新.而我的Hint的内容,是根据在控件内部的坐标去提示的,比如 hint:=intToStr(x)+','+IntToStr(Y);
当时不会更新.除非鼠标移出控件范围,再次进来.
请问如何解决哦.

Answer 1

你估计你这样写的
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 hint:=intToStr(x)+','+IntToStr(Y);
end;其实用一个时钟timer 定时显示获取鼠标所在位置就可以

Answer 2

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 hint:=intToStr(x)+','+IntToStr(Y);
 ShowHint := False;
 ShowHint := True;end;