Нажатия клавиши и звук
Falk0ner, вс, 06/07/2008 - 15:35.
Нажатия клавиши и звук
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
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;
Отправить комментарий