Delphi-Help

Главная Статьи Аудио Нажатия клавиши и звук

Нажатия клавиши и звук

Оцените материал
(1 Голосовать)


Нажатия клавиши и звук

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;
Прочитано 5469 раз

Авторизация



Счетчики