I mavzu: Axborot haqida tushuncha

procedure TForm1. Windows1Click(Sender: TObject);
begin
Image1.picture.LoadFromFile(pc:\Windows\rasm2.bmpp);
end;

progressBar1 komponentasini ustida sichqonchani harakatlantirilsa, to`g`ri to`rtburchak yuzi necha % ga o`zgarganini ko`rsatadi.

procedure TForm1.progressBar1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
progressBar1.Hint:=IntToStr(progressBar1.position)+p%p;
end;
4. Yangi mavzuni mustahkamlash.
Savol va topshiriqlar:

4. 
   PopupMenu1 komponentasidan nima maqsadda foydalaniladi?
   
5. 
   To`g`ri to`rtburchak yuzi necha % ga o`zgarganini qanday bilish mumkin?
   
6. 
   To`g`ri to`rtburchakni balandligini o`zgartirish qanday amalga oshiriladi?
   
7. 
   ProgressBar1 komponentasi qanday amal bajaradi?
   

5. Dars yakuni.
O`tilgan yangi mavzu bo`yicha tushunmagan savollariga javob berish, o`quvchilar bilimini baholash, muhim joylarini takrorlab mashg`ulotga yakun yasash.
6. Uyga vazifa:
V.V.Faronov , “Delphi 5”, Moskva 2009 g. 227-231 betlarni o`qib kelish.
39- mavzu
“Delphi dasturlash tili operatorlari yordamida dasturlar tuzish” mavzusi bo’yicha amaliy mashg’ulot darsini olib boorish texnologiyasi

O’quvchilar soni	10-15 o’quvchi
Vaqti:	2 soat
Dars shakli	Nazariy bilimlarni mustahkamlash va amaliy ko’nikmalarni shakllantirish amaliy mashg’uloti