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

procedure TForm1.TrackBar1Change(Sender: TObject); 

begin 

Label1.Caption:=IntToStr(TrackBar1.Position); 

end; 

 

Бу мисолда жорий позицияни қаторга айлантириб Label1 га ёзамиз. Худди 

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

керак. 

 

Жараён индикатори (TProgressBar) 

Бу  компонента  бирор  жараён  қанча  фоизи  бажарилганлигини  кўрсатишга 

имкон беради 

 

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

Max – максимал қиймат (алоҳида кўрсатилмаса = 100). 

Min – минимал қиймат (алоҳида кўрсатилмаса = 0). 

Position – позиция. 

Қуйидаги дастурда 100 циклли ҳисоблаш ўтказилади. 

---

 

 

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