|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.01.2010, 19:20 | #1 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
Рандомные звуки при наборе текста
Хочу чтобы при наборе текста в TEdit звучали рандомные звуки и при нажатии на Backspace звучал только один специальный звук.
Вот наработки Код:
begin Press; end; Только тут один не достаток - звуки проигрываются при нажатии первых трёх клавиш на остальные молчит. |
07.01.2010, 19:21 | #2 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Код:
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
07.01.2010, 21:21 | #3 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
Код:
|
07.01.2010, 21:36 | #4 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
randomize не?
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
07.01.2010, 21:49 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
1) добавить звуков побольше (ибо три звука - это маловато!
2) вместо t:=t+1 сделать t := Random(ЧислоЗвуков); потом, вместо case t вызвать sndPlaySound('type_'+trim(IntToStr( t)), SND_RESOURCE or SND_ASYNC); p.s. в начале, при создании формы не забыть вызвать randomize; |
07.01.2010, 21:49 | #6 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
Работает. Теперь остался последний штрих, требуется что при нажатии на Backspace проигрывался только один звук.
Последний раз редактировалось Shouldercannon; 07.01.2010 в 21:55. |
07.01.2010, 22:01 | #7 |
Участник клуба
Регистрация: 13.01.2009
Сообщений: 1,353
|
Код:
http://www.realcoding.net/article/view/1857
"Тебе то может на меня и насрать, но твои глаза меня обожают!"
Последний раз редактировалось ImmortalAlexSan; 07.01.2010 в 22:36. |
07.01.2010, 22:35 | #8 |
Software Developer
Старожил
Регистрация: 19.12.2008
Сообщений: 2,070
|
А конкретнее:
Код:
Будь проще и люди к тебе потянутся
|
07.01.2010, 22:37 | #9 |
Участник клуба
Регистрация: 13.01.2009
Сообщений: 1,353
|
Опередили вы меня
"Тебе то может на меня и насрать, но твои глаза меня обожают!"
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
изменить запись в наборе DataSet не внося изменение в БД | truevoxdei | БД в Delphi | 10 | 31.08.2009 15:10 |
Рандомные помехи в результате запроса MySQL | Ivan_32 | SQL, базы данных | 0 | 17.07.2009 05:52 |
Подстановка значений при наборе | kopoba | БД в Delphi | 4 | 02.06.2009 10:34 |
Зависание при наборе определенных слов | mus-chek | Microsoft Office Word | 12 | 01.11.2008 08:20 |
при ручном наборе некоторые процедуры неработают? | zAlexandrz | Общие вопросы Delphi | 8 | 10.11.2007 18:43 |