按钮的特效(50分)

M

masoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #1

我想在按钮的周围加个特效，鼠标移动到按钮上的时候就显示，鼠标移开就不显示。请问有什么好办法么？

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #2

处理消息
CM_MOUSEENTER
CM_MOUSELEAVE

 

爱

爱元元的哥哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #3

用Flash做界面，绝对Cool，呵呵

 

M

masoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #4

to pihome
能具体点给几行代码么，水平较次~~[]

 

O

oiwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #5

你可以在按钮下面放一个IMAGE,比按钮稍大一点点
然后处理IMAGE和FORM的OnMouseMove事件
IMAGEOnMouseMove事件说明鼠标移到按钮上
FORM的OnMouseMove事件鼠标离开按钮上

 

M

masoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #6

to pihome
具体提供个api函数吧。我找了半天也没找到啊。

 

M

masoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #7

怎么处理这个 pihome 说的CM_MOUSEENTER、CM_MOUSELEAVE 鼠标消息？谁能帮下忙？

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #8

如果要使用我上面所说的方法，你需要从TButton继承一个新类
TMyButton = class(TButton)
private
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
end;
或者另外一个变通的办法，在Button的OnMouseMove和其父控件的OnMouseMove事件中处理
如果Button.OnMouseMove，则说明鼠标在Button之上，如果Button.Parent.OnMouseMove，则说明鼠标已离开了Button
需注意一点的就是Button需与其它控件隔开一点距离，以使鼠标一离开Button，马上就能触发到Button.Parent.OnMouseMove事件

 

M

masoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-24

• #9

没接触过消息编程。听的有点懵懂。自己慢慢琢磨了。