Нажатия клавиши и звук -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [98.84.18.52]

Модераторы: Rouse_, jack128, Krid

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

s-mike

Сообщ. #1 , 15.01.05, 20:05

Unregistered

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;

Это сообщение было перенесено сюда или объединено из темы "Нажатия клавиши и звук"

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0174 ] [ 16 queries used ] [ Generated: 7.10.24, 17:21 GMT ]