在Form的Create事件中添加了如下代码,想要在鼠标已到图片控件上的时候,显示Hint,但是,怎么做都不行,请问是我的代码有问题吗?
procedure TfrmChooseStatKind.FormCreate(Sender: TObject);
begin
  Application.HintHidePause:=6000;
  imgLocal.Hint:='国内旅游统计(本地一日游) ';
  imgLocal.ShowHint:=true;
  imgView.Hint:='国内旅游统计(景点、区) ';
  imgView.ShowHint:=true;
  imgLive.Hint:='国内旅游统计(住宿设施) ';
  imgLive.ShowHint:=true;
  imgTotal.Hint:='景点游客构成调查 ';
  imgTotal.ShowHint:=true;
  imgExit.Hint:='退出 ';
  imgExit.ShowHint:=true;
end;另外,请问如何Image控件如何判定当前有鼠标移到该控件上?是使用的哪个事件触发?小弟学习Delphi没多久,请指教!

解决方案 »

  1.   

    在我这里都可以,onmousemove就可以了,如果要求很严格的话,那就自己为image添加一个事件,好像是wm_mouseon(一时记不太清了,原谅)
      

  2.   

    在我的机器上,怎样都不能显示出Hint来!真是奇怪!!!!!
    我的图片的Cursor改成手指状,是不是和这个有关系呢?如果判定图片有鼠标移到控件上用MouseMove,那么用哪个事件可以判定鼠标已经离开了这个控件呢?好像没有特别的事件!请指教!
      

  3.   

    自己写一个事件是好的方法,我这里改成crhandpoint也可以,是不是你设置的问题?
      

  4.   

    代码没问题呀,我这里测试通过.换到show事件中试试
      

  5.   

    确实代码没有问题!!我把我的exe文件放到别人的机器上,也可以正常显示hint,看来是我的机器的问题!!!!!不过,确实不知道哪配置有问题!!!继续请教第二个问题!!!谢谢楼上几位!