linkedin facebook linkedin facebook nod32

Delphida jarayon indikatori

Muallif: Mengliyev SH.

Qo`shilgan sana: 2015-02-06

Jarayon indikatori

-TProgressBar komponenta biror jarayon qancha foiz bajarilganligini ko‘rsatishga imkon beradi

Asosiy xossalari:
Max – maksimal qiymat (alohida ko‘rsatilmasa = 100).
Min – minimal qiymat (alohida ko‘rsatilmasa = 0).
Position – pozitsiya.

Quyidagi dasturda 100 siklli hisoblash o‘tkaziladi.

Boshqarish tugmasi uchun quyidagi protsedura  yozamiz:

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to 20 do
begin
ProgressBar1.Position:=ProgressBar1.Position+5;
Sleep(100);
end;
ProgressBar1.Position:=0;
end;

Bu protsedurani quyidagicha yozish ham mumkin:

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to 20 do
begin
ProgressBar1.Position:=i;
Sleep(100);
end;
ProgressBar1.Position:=0;
end;

1991 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений