Delphi tilida

Procedure TForml.ButtonlClick(Sender: TObject); 
var 
i:Integer; 

196 

begin 
for i:=0 to 20 do 
begin 
ProgressBarl.Position:=ProgressBarl.Position+5; 
Sleep(lOO); 
end; 
ProgressBarl.Position:=0; 
end; 
Bu protsedurani quyidagicha yozish ham mumkin: 
Procedure TForml.ButtonlClick(Sender: TObject); 
var 
i:Integer; 
begin 
for i:=0 to 20 do 
begin 
ProgressBarl.Position:=i; 
Sleep(lOO); 
end; 
ProgressBarl.Position:=0; 
end; 

Chiqariluvchi sanalar ro‘yxati (TDateTimePicker) 

Bu komponenta chiqariluvchi ro‘yxatga o‘xshagan bo‘lib. ro‘yxat 
o‘rniga kalendar joylashgan. 
=3 
Quyidagi rasmda kalendar ko‘rinishi berilgan. 

_________ ___ 

I 1 
3 A 5 6 7 8 9 
i:i 11 11' i:3 U 15 16 
17 19 19 30 21 22 23 
24 2b 2S 27 28 29 j U 

^ C cro*..*: 04 0C 2002 

197 

Bu komponenta xossalari TComboBox xossalari bilan bir xildir, 
lekin quyidagi alohida xossalari mavjud: 
Date —tanlangan sana; 
DateFormat —bu xossaning ikki qiymati mavjud: dfShort —qisqa 
format va dfLong —uzun format; 

Kalendar (TMonthCalendar) 

Bu komponenta formada doimiy kalendar ko‘rsatishga imkon 

beradi. “ | 
Kalendarning formada ko‘rinishi quyidagicha: