请大富翁的兄弟们都进来看一下。(10分)

  • 主题发起人 主题发起人 边城浪子
  • 开始时间 开始时间

边城浪子

Unregistered / Unconfirmed
GUEST, unregistred user!
在delphi的按钮组件上如何做出像网页中的超链接一样的效果,当鼠标移动到按钮上时,
按钮上文字的颜色由黑色变成蓝色,鼠标离开按钮时,按钮上的颜色由蓝色变回黑色,如
何通过编程来实现,请高手指点。
 

在按钮上鼠标移动事件上写上一句改变颜色的语句就行了
 
在鼠标的move事件中,设置设置字体色
 
重载button的wndproc消息过程
如果截获的消息是cm_mouseenter转换着色
如果截获的消息是cm_mouseleave转换回来

可如需要使用bitbutton吧,button的字体能不能变色呢
 
能不能给点具体的实现代码??
 
随便找张delphi的资源d碟,里面的例子多得是!!!!
随你挑,随你发挥,原理都一样!
 
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;

procedure Tyourcomponent.CMMouseEnter(var Message: TMessage);
begin
//改变颜色
end;
 
请问哪里有delphi资源光盘下载的??
 
后退
顶部