怎么才能编一个有声音的按钮啊~~~~~~`

Question

谢谢，如题

Answer 1

关键代码如下，你可以尝试。type
  TMyButton = class(TButton)
  protected
    procedure Click; override;
  end;procedure TMyButton.Click;
begin
  if Assigned(OnClick) then begin//没有事件就不发声
    //PlaySound here
  end;
  inherited;
end;不过，好象Windows已经提供了让按钮发生的配置，你何必多此一举呢？
想让用户听到多种声音吗？

Answer 2

你可以事先建立几个声音文件，比如用windows自带的录音机录几个。然后在delphi中用playsound（）函数调用此文件。此函数可以自动调用系统API，播放几种格式的声音文件，具体是什么忘记了。里面的参数是文件名关于此函数的声明和所属单元，建议看一下帮助。点击时触发此函数，就可以了。

Answer 3

上面讲的太麻烦，上网下载一个FlatStyle控件集合，里面有一个控件可以实现按钮声音。

Answer 4

如果只是发声，就没有必要重编一个按钮了，直接在OnClick写上发声代码就行了

Answer 5

是啊，在CLICK中直接PlaySound就可以了！

Answer 6

在CLICK中直接sndplaysound(Pchar('file.wav'), SND_ASYNC)
也可以用控件ABC中的TABCwavefilebtn的

Answer 7

sndplaysound要uses哪个文件啊?

Answer 8

...
Use mmsystem;
...
procedure TMyButton.Click;
begin
...
  PlaySound('DING',hInstance,SND_RESOURCE);//发出声音，Ding为.WAV文件
...
end;

Answer 9

从TButton继承一个按钮，自己写，超简单