Нажатия клавиши и звук |
Previous Top Next |
Code: |
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin PlaySound('wmpaud7.wav', 0, SND_NOSTOP + SND_ASYNC); end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin PlaySound(nil, 0, 0); end; |
Автор: Smike
Взято из http://forum.sources.ru
©Drkb::03620