Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.01.2008, 21:16   #1
Михаил Юрьевич
Форумчанин
 
Аватар для Михаил Юрьевич
 
Регистрация: 25.12.2007
Сообщений: 655
Восклицание TrackBar

Как с помощью TrackBar можно управлять громкостью
За частые поиски был забанен во всех известных
поисковых системах!
Михаил Юрьевич вне форума Ответить с цитированием
Старый 28.01.2008, 22:12   #2
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Код:
uses MMSystem;
...
procedure TForm1.TrackBar1Change(Sender: TObject);
var
  HWO: HWAVEOUT;
  WF: TWAVEFORMATEX;
  V: DWORD;
begin
  FillChar(WF,SizeOf(WF),0);
  WaveOutOpen(@HWO,WAVE_MAPPER,@WF,0,0,0);
  V:=TrackBar1.Position+TrackBar1.Position shl 16;
  WaveOutSetVolume(HWO,V);
  WaveOutClose(HWO);
end;
При этом, должно быть установлено
TrackBar1.Max:=65535;
_Dmitry вне форума Ответить с цитированием
Старый 29.01.2008, 00:43   #3
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Можно и совсем короткий обработчик:
waveOutSetVolume(WAVE_MAPPER,TrackB ar1.Position+(TrackBar1.Position shl 16));
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TrackBar установить шаг MAcK Компоненты Delphi 3 04.08.2008 14:41
Вопрос по TrackBar KrendelSladkij Компоненты Delphi 1 21.05.2008 17:19
Вопрос по TrackBar SeRhy Компоненты Delphi 1 24.12.2007 04:37
проблема с TrackBar`ом AndrewASV Общие вопросы Delphi 2 22.11.2007 22:21