Как к кнопке на форме присвоить кнопку на клаве?

@Валера_89 · Регистрация: 08.02.2011

Студворк — интернет-сервис помощи студентам

Мы с друзьями решили собрать рок-группу, все чик-пок собрали.Все инструменты и аппаратура кроме БАРАБАНОВ есть. Пока денег на барабаны нет,А репертировать нужно, решили сделать барабанную установку В РЕАЛЬНОМ ВРЕМЕНИ используя ПО.(рыл интернет - ниче подлобного не нашел). В институте у меня был семестр по делфи ознакомительный, так что я думаю справлюсь.

Цель: На форму кинуть 7 кнопок(барабаны). 1 - басс 2- малый том, 3 - .... и т.д. При нажатии на кнопку должен воспроизводиться звук-семпл барабана, они у меня есть в wav формате(я так рылся у вас сдесь понял что через PlaySaund) и самое проблематичное для меня: Как к кнопке на форме присвоить кнопку на клаве?
Пример: При нажатии латинской "D" воиспроизводися бас-бочка.

То есть, сделать макет барабанов. Куда предварительно зашуруем клацальные кнопки и все это подпаяем к старой клаве.

Кинте пример на одну кнопку а на остальные я воспользуюсь МАСТЕР КОПИ-ПАСТЕ_v1.01=)))

С уважением Валера.

@sidapas · 08.02.2011, 15:02

Привет Валера кинь сюда эти басы я сделаю тебе все и дам исходник.

@Валера_89 · 08.02.2011, 15:37 **[ТС]**

Ой, я бы с радостю.. только у меня интернет подключенный через мобилку. Скорость загрузки 10-11Кб отправки 1-2Кб - это ужас а семплы целых 1,4 Мб!!!!!!

Я тут пытался
function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal):boolean;
.......
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound("BassBochka.wav",0,SND_ASYNC);
end;

Результат: при нажатии играет и повторяется.

Вообщем если там переписать строчки с сэмплами то это я сделаю - кидайте исходник.
Или киньте исходник со своими звуками любыми, без разницы, я соображу что поменять переписать.

А если нет то аж завтра выгружу, сьезьдю в город в инет кафе.

У меня стоит Delphi 6 если это имеет значение.
Спасибо большое вам!

@Валера_89 · 08.02.2011, 19:35 **[ТС]**

Вот басы. Перекодировал на меньший размер.

@Валера_89 · 10.02.2011, 15:27 **[ТС]**

Ребята ну помогите плз
что тут нужно сделать что б при нажати двух клавиш воиспроизводилось два звука одновременно. ЛЮБЫЕ ВАРИАНТЫ!!!
procedure TForm1.gtgt(Sender: TObject; var Key: Char);
begin

if key='d' then
MediaPlayer1.FileName:='C:\Bass.wav' ;
if key='f' then
MediaPlayer1.FileName:='C:\kick.WAV';
if key='g' then
MediaPlayer1.FileName:='C:\Trash.WAV';
if key='h' then
MediaPlayer1.FileName:='C:\Tick.wav' ;

begin
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;

Добавлено через 17 минут
Или подскажите как запрограмировать чтоб если нажимаешь две одновременно клавиши - выполняется действие

Пример "Д"+"А" -- заиграла музика

Добавлено через 1 час 9 минут
ВСЕ ТЕМА ЗАКРЫТА!

ВОТ ОНО МОЕ СПАСЕНИЕ - Cakewalk Studio Instruments.

З.Ы. а делфи крутая штука пока разобрался с операторами if Then думал что стал гением!!))

@Страдалецъ · 10.02.2011, 16:45

Кем жы ты станешь если обнаружишь что там еще case есть

@vallerik · 22.03.2011, 18:34

SendMessage(Edit1.handle, wm_char, ord('Q'),0); // Программно пропись в Edit букву Q

Добавлено через 24 секунды
SendMessage(Memo1.handle, wm_char, ord('Q'),0); // Программно пропись в Memo букву Q
Edit1.Text := 'Привет!' // Программно пропись в Edit Привет!
Memo1.Text := 'Привет!' // Программно пропись в Memo Привет!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Валера_89 4 / 4 / 0 Регистрация: 08.02.2011 Сообщений: 4

	Как к кнопке на форме присвоить кнопку на клаве? 08.02.2011, 14:13. Показов 2383. Ответов 6 Метки нет (Все метки) Мы с друзьями решили собрать рок-группу, все чик-пок собрали.Все инструменты и аппаратура кроме БАРАБАНОВ есть. Пока денег на барабаны нет,А репертировать нужно, решили сделать барабанную установку В РЕАЛЬНОМ ВРЕМЕНИ используя ПО.(рыл интернет - ниче подлобного не нашел). В институте у меня был семестр по делфи ознакомительный, так что я думаю справлюсь. Цель: На форму кинуть 7 кнопок(барабаны). 1 - басс 2- малый том, 3 - .... и т.д. При нажатии на кнопку должен воспроизводиться звук-семпл барабана, они у меня есть в wav формате(я так рылся у вас сдесь понял что через PlaySaund) и самое проблематичное для меня: Как к кнопке на форме присвоить кнопку на клаве? Пример: При нажатии латинской "D" воиспроизводися бас-бочка. То есть, сделать макет барабанов. Куда предварительно зашуруем клацальные кнопки и все это подпаяем к старой клаве. Кинте пример на одну кнопку а на остальные я воспользуюсь МАСТЕР КОПИ-ПАСТЕ_v1.01=))) С уважением Валера. 1

@sidapas 23 / 17 / 0 Регистрация: 14.09.2010 Сообщений: 228
	08.02.2011, 15:02
	Привет Валера кинь сюда эти басы я сделаю тебе все и дам исходник. 1

@Валера_89 4 / 4 / 0 Регистрация: 08.02.2011 Сообщений: 4
	08.02.2011, 15:37 [ТС]
	Ой, я бы с радостю.. только у меня интернет подключенный через мобилку. Скорость загрузки 10-11Кб отправки 1-2Кб - это ужас а семплы целых 1,4 Мб!!!!!! Я тут пытался function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal):boolean; ....... procedure TForm1.Button1Click(Sender: TObject); begin PlaySound("BassBochka.wav",0,SND_ASYNC); end; Результат: при нажатии играет и повторяется. Вообщем если там переписать строчки с сэмплами то это я сделаю - кидайте исходник. Или киньте исходник со своими звуками любыми, без разницы, я соображу что поменять переписать. А если нет то аж завтра выгружу, сьезьдю в город в инет кафе. У меня стоит Delphi 6 если это имеет значение. Спасибо большое вам! 1

@Валера_89 4 / 4 / 0 Регистрация: 08.02.2011 Сообщений: 4
	10.02.2011, 15:27 [ТС]
	Ребята ну помогите плз что тут нужно сделать что б при нажати двух клавиш воиспроизводилось два звука одновременно. ЛЮБЫЕ ВАРИАНТЫ!!! procedure TForm1.gtgt(Sender: TObject; var Key: Char); begin if key='d' then MediaPlayer1.FileName:='C:\Bass.wav' ; if key='f' then MediaPlayer1.FileName:='C:\kick.WAV'; if key='g' then MediaPlayer1.FileName:='C:\Trash.WAV'; if key='h' then MediaPlayer1.FileName:='C:\Tick.wav' ; begin MediaPlayer1.Open; MediaPlayer1.Play; end; end; Добавлено через 17 минут Или подскажите как запрограмировать чтоб если нажимаешь две одновременно клавиши - выполняется действие Пример "Д"+"А" -- заиграла музика Добавлено через 1 час 9 минут ВСЕ ТЕМА ЗАКРЫТА! ВОТ ОНО МОЕ СПАСЕНИЕ - Cakewalk Studio Instruments. З.Ы. а делфи крутая штука пока разобрался с операторами if Then думал что стал гением!!)) 1

@Страдалецъ Тимуровец 445 / 285 / 50 Регистрация: 10.09.2009 Сообщений: 963
	10.02.2011, 16:45
	Кем жы ты станешь если обнаружишь что там еще case есть 1

@vallerik Фрилансер 67 / 37 / 2 Регистрация: 11.01.2011 Сообщений: 280
	22.03.2011, 18:34
	SendMessage(Edit1.handle, wm_char, ord('Q'),0); // Программно пропись в Edit букву Q Добавлено через 24 секунды SendMessage(Memo1.handle, wm_char, ord('Q'),0); // Программно пропись в Memo букву Q Edit1.Text := 'Привет!' // Программно пропись в Edit Привет! Memo1.Text := 'Привет!' // Программно пропись в Memo Привет! 0