当shouhint:=true时,在控件的hint属性赋值可以在鼠标移动到控件上时显示信息,比如image控件上,但当鼠标没有离开控件时他的信息会自动消失,如何才能控制它再次出现,
比如要实现在取得每个位置的坐标值并显示。在mousemove事件上如何实现

解决方案 »

  1.   

    哪个不是HINT,用一个PANNEL做成和HINT差不多的样子,然后在PANNEL里显示你的坐标。
    PANNEL的LEFT-TOP值随你的鼠标变。
      

  2.   

    procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    var p:Tpoint;
    begin
      panel1.Caption:='('+inttostr(x)+','+inttostr(y)+')';
      p.X:=x;
      p.Y:=y;
      image1.ClientToScreen(p);
      form1.ScreenToClient(p);
      panel1.Left:=p.X;
      panel1.Top:=p.y;
    end;
      

  3.   

    rcaicc兄就错了,动一下不会出现,除非鼠标再按一下, capoatguitar的方法可行,不过如果能用hint属性来做的话更好啊
      

  4.   

    楼主说的这个跟本就不是HINT,只不过看起来象HINT而已。
    才看见,怎么在非技术区啊!!!不爽,要是在技术区就好了,转贴吧,呵呵