我想在控件上有鼠标移过时（并不是按下鼠标）显示一张图片，而当鼠标移开时图片消失，就象hint 的功能一样，请问在控件的哪种事件中实现，具体怎样设置敬请指点！(2

  • 主题发起人 libaoliang
  • 开始时间
L

libaoliang

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在控件上有鼠标移过时（并不是按下鼠标）显示一张图片，而当鼠标移开时图片消失，就象hint 的功能一样，请问在控件的哪种事件中实现，具体怎样设置敬请指点！(20分)<br />我想在控件上有鼠标移过时（并不是按下鼠标）显示一张图片，而当鼠标移开时图
片消失，就象hint 的功能一样，请问在控件的哪种事件中实现，具体怎样设置敬请
指点！
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x>=image1.left) and (x<=image1.left+image1.width) and (y>=image1.top) and (y<=image1.top+image1.height) then
image1.visible:=true
else
image1.visible:=false;
end;
 
这样在鼠标离开时图片将依然显示，
可能达不到我的上述目的！
 
你试过了吗？我已试过绝对是你要的效果！仔细分析代码。
 
ApplicationEvent
 
linsb的程序好像不能达到要求；
如果窗体上还有别的控件，如panel之类的，如果鼠标在别的控件上移动，
就不能触发该事件，也就谈不上控制了，难道在每个控件上都要编写上面
一段程序？有没有什么办法能截获mousemove事件（只要它在窗体内就触发事件，
而不管是不是在窗体上的子控件上），好像截获窗体的mousemove消息不行。
谁有办法，我再给100分！！
 
当鼠标移动到image控件范围内image的图像可见，否则不可见，我试过没问题。
>>我想在控件上有鼠标移过时（并不是按下鼠标）显示一张图片，而当鼠标移开时图
片消失
这里的控件指的是什么？应有所指。在这里我指的是image，如果是其他，稍加修改。
 
我的意思是：
如果窗体还有panel,则鼠标在panel上移动时，不会触发form的mousemove事件，
这时就不能控制了（你可以试试），窗体上不可能没有别的控件吧，难道在窗体上的
所以控件都有来这段程序？
 

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image1.visible:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image1.visible:=false;
end;

 
to linsb：
我的意思就是这样啊，如果我窗体上有几十个控件，都必须这么写？那也太
不爽了吧？难道没有办法截获一个什么消息来来接管所有在窗体内的mousemove事件？
 
问题不是鼠标移动到任何控件都触发这一事件吧？这有实际意义吗？
 
要么你接管;
WM_MOUSEMOVE消息，不过这样你只要有动鼠标都触发，那不是·#￥·#￥#·￥
要么拿一个循环,拿一个TAG分出你要的COMPONENT
for i:=0 to componetns then
if 你要的 then
(components as TComponet).onmousemove=youmousemove;
 
其实我的意图很简单：
1。怎样判断鼠标是否离开了某个控件？（我知道可以用getcursorpos得到
鼠标位置，但问题是在什么事件中写程序）。
2。怎样判断鼠标是否进入了某个控件？
 
to libaoliang
你的需要到底是什么？
 
估计libaoliang和我的要求差不多。
我另开了个帖子。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1160702
 
应该对WM_MouseHover
WM_MouseLeave两个消息进行处理，DElphi没有把这个消息做成事件处理；
只能写消息处理函数了，我原来就是这样解决的。
 
Beast：
能举个例子吗？
例如我相对panel1控制！
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1160702
 
我当时是这样做的：
子类化一个Image（你的是Panel）
private
procedure WMHover(var Message: TMessage); message WM_MouseHover;
procedure WMleave(var Message:TMessage);message WM_MouseLeave;
实现的时候Self.visable=False或者True就行了。
然后把它加入你的窗体，我比较土鳖，是用代码Create的这个Image。应该有别的
办法
关注～～
 
截获form的WM_NCHITTEST消息， 然后转换一下坐标， 再判断是否在Image里就可以了。
只要鼠标在form上移动， form肯定能接收到这个消息， 不管它是不是在Panel上。
 
？这倒是也是一个另类解决方案～
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
G
当鼠标移动到按钮时，改变按钮颜色？(20分)
回复
4
查看
130
Gingerzy
G
L
请问如何实现：当鼠标移到某组件上时改变组件字体的属性，鼠标离开后字体性质还原?(30分)
回复
8
查看
74
llockf
L
G
怎样在DBGrid单击或是移动鼠标时获取。。。。。(0分)
回复
4
查看
80
jiarui
J
E
有关于图片实现标题的功能。。。〈灌水特区〉(60分)
回复
5
查看
99
etiger
E
顶部