Плавно увеличить громкость

[KurtWagner]

Как на Button1 менять громкость не так как в DelphiWorld6 махом, а скажем я удерживаю Button1 и у меня плавно сбавляется громкость потом скажем ужердиваем button2 и так же плавно увеличивается громкость... как заранее спасибо!

[Kotofff]

procedure TForm1.Button1MouseDown(Sender: TObject; Button:TMouseButton; Shift: TShiftState; X, Y: Integer);
    //запускай таймер и на  OnTimer событие которого вешай плавное повышение
procedure TForm1.Button1MouseUp(Sender: TObject; Button:MouseButton;Shift: TShiftState; X, Y: Integer);
    //останавливай Enable:=false;  твой таймер - прекращай плавное повышение

Так же с другой кнопкой на понижение громкости

[KurtWagner]

не получается

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, mmSystem, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 procedure SetVolume(const volL, volR: Word);
 var
   hWO: HWAVEOUT;
   waveF: TWAVEFORMATEX;
   vol: DWORD;
 begin
   // init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
   // open WaveMapper = std output of playsound
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
   vol := volL + volR shl 16;
   // set volume
  waveOutSetVolume(hWO, vol);
   waveOutClose(hWO);
 end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 SetVolume(65535, 65535);
end;

end.

[KORN]

так ты задал одно значение и все... а нужно его менять:

a:=0;

procedure TForm1.Button1MouseDown(Sender: TObject; Button:TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inc(a);
if a<65535 then
SetVolume(a, a);
end;

что то типа того... редактируй под себя...

[KurtWagner]

KORN а куда это ставить?
a:=0;

[KurtWagner]

пожалуйста дайте исходник, туплью! не получается...

[KORN]

var
  a: integer=0; // глобальная переменная

не нужно тупить, нужно сидеть и разбираться

З. Ы. когда ты уже научишься пользоваться правкой, а не плодить новые посты

[DomiNick]

хм.....

виртуальные кнопки...
секретная форма, запуск с параметром "/formMenu"...
плавное изменение громкости...

чего ж ты там такое хитрое сотворяешь? =))

[KORN]

Сообщение от DomiNick

хм.....

виртуальные кнопки...
секретная форма, запуск с параметром "/formMenu"...
плавное изменение громкости...

чего ж ты там такое хитрое сотворяешь? =))

мне кажется это только начало для нас... чем дальше тем вопросов будет больше...

[KurtWagner]

DomiNick KORN Согласен, страшно подумать...