Mavzu: Dasturlash tillari faniga kirish. Ob’ektga yo‘naltirilgan dasturlash tillari

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; 

 

Бу процедурани қуйидагича ёзиш ҳам мумкин: 

 

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; 

 

Чиқарилувчи саналар руйхати (TDateTimePicker) 

Бу  компонента  чиқарилувчи  рўйхатга  ўхшаган  бўлиб  рўйхат  ўрнига 

календар жойлашган 

 

Қуйидаги расмда календар кўриниши берилган. 

---

 

 

Бу компонента хоссалари TComboBox хоссалари билан бир хилдир, лекин 

қуйидаги алоҳида хоссалари мавжуд: 

Date – танланган сана. 

DateFormat  –  бу  хосса  икки  қиймати  мавжуд:  dfShort  –  қиска  формат  ва 

dfLong – узун формат. 

MaxDate – максимал сана. 

MinDate – минимал сана. 

 

Календарь (TMonthCalendar) 

Бу компонента формада доимий календар кўрсатишга имкон беради. 

 

Календарнинг формада кўриниши қуйидагича: 

 

Асосий хоссалари: 

FirstDayOfWeek – биринчи сифатида кўрсатилган ҳафта куни. 

Date – танланган сана. 

MaxDate – максимал сана. 

MinDate – минимал сана. 

MultiSelect – ой сонлари диапазонини танлаш имконияти. 

ShowToday – жорий санани кўрсатиш. 

ShowTodayCircle – жорий сана доирасини кўрсатиш. 

WeekNumbers – ҳафта номерини кўрсатиш.