نمایش نتایج 1 تا 40 از 435

نام تاپیک: نکات برنامه نویسی در دلفی

Threaded View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #5

    تغییر Volume ویندوز

    تغییر Volume ویندوز

    یک TrackBar در فرم خود قرار دهید و Max value را به 15 تغییر دهید و در رویداد OnChange آن کد زیر را قرار دهید:

    procedure TForm1.TrackBar1Change(Sender: TObject);
    var
    Count, i: integer;
    begin
    Count := waveOutGetNumDevs;
    for i := 0 to Count do
    begin
    waveOutSetVolume(i,longint(TrackBar1.Posit ion*4369)*65536+longint(TrackBar1.Position *4369));
    end;
    end;

    و با TrackBar بازی کنید ...
    آخرین ویرایش به وسیله بهروز عباسی : چهارشنبه 09 مرداد 1392 در 15:40 عصر

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •