快来看看吧！简单问题？？

Question

怎样才能控制呀， 我的天呀！ 神呀，救救我吧！！！ 
当鼠标移到button上的时候，使它的颜色发生变化，
同时播放一个简单的*.wav等的文件。在这里我用的是（onmousemove）事件。
当鼠标移开的时候，使它的颜色恢复成原来的样式,音乐也停止。这里是我的关键所在？？
请各位大虾帮帮忙，非常感谢！

Answer 1

button的颜色变不了，你是自己做组件吗？

Answer 2

delphi的按纽要改变颜色好麻烦
要不你用图片代替，或者用外部控件更方便

Answer 3

对，delphi自带按钮改变颜色很困难，还是使用第三方控件吧这个题的思路
重载一个进程
private
  procedure WndProc(var Message : TMessage); override;procedure TForm1.WndProc(var Message : TMessage);
begin
 if Message.LParam = Longint(button1) then
 begin
  if (Message.Msg = CM_MOUSELEAVE) then
    button1.Font.Color :=clred;
  if (Message.Msg = CM_MOUSEENTER) then
    button1.Font.Color :=clgreen; end;
inherited WndProc(Message);end;