Question

delphi如何实现：当鼠标放到按钮上，按钮会变大一点，移开又变回原状的动态效果？

如题~

Answer 1

可以响应按钮的 OnMouseEnter 和 OnMouseLeave 事件：

procedure TForm1.btn1MouseEnter(Sender: TObject);
begin
  btn1.Width := 125;
  btn1.Height := 45;
end;

procedure TForm1.btn1MouseLeave(Sender: TObject);
begin
  btn1.Width := 120;
  btn1.Height := 40;
end;

Answer 2

在Button的事件中找到OnMouseMove.
然后在里边写代码
Button.Width:=100; //在这里只设置了宽,其它自己设置
然后在事件中找到OnMouseLeave
在里边写代码
Button.Width:=75 //75在这里是默认添加按键的宽带,其它属性自己设置!

Answer 3

去看 VCLSKIN的源码 里面有拦截了 button 的鼠标消息 做相应的改变 画上去就行了

Answer 4

在按钮的OnMouseMove事件加入Button.Width:=100;

在窗体的OnMouseMove事件加入Button.Width:=50;