TrackBar - Общие вопросы Delphi

Михаил Юрьевич · 28.01.2008, 21:16

Как с помощью TrackBar можно управлять громкостью

_Dmitry · 28.01.2008, 22:12

Код:

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;

mihali4 · 29.01.2008, 00:43

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

28.01.2008, 21:16	#1
Михаил Юрьевич Форумчанин Регистрация: 25.12.2007 Сообщений: 661	TrackBar Как с помощью TrackBar можно управлять громкостью За частые поиски был забанен во всех известных поисковых системах!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
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

29.01.2008, 00:43	#3
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Можно и совсем короткий обработчик: waveOutSetVolume(WAVE_MAPPER,TrackB ar1.Position+(TrackBar1.Position shl 16));