Raqamli pedagogika: holati va rivojlanish istiqbollari

 
141 
Yuqoridagi elektron qo‘llanmani tayyorlashga to‘xtalib o‘taylik. Buning uchun bizga o‘n 
bitta 
StaticText
,
 
bitta
WebBrowser
, bitta 
Panel
, o‘nta 
MediaPlayer
, o‘nta 
BitBtn
komponentalari kerak bo‘ladi. 
StaticText
komponentalariga mos ravishda mavzular 
nomlarini kiritib chiqamiz. Masalan, 1-mavzuni kiritish uchun 
StaticText1
ni 
tanlaymiz 
Object Inspector
oynasidagi 
Caption
hossasiga “
1.Delphi dasturlash 
muhiti
” mavzu nomini kiritamiz. Huddi shu tariqa boshqa mavzular nomlarini ham 
kiritib olamiz. Navbatdagi bajaradigan ishimiz mavzular nomlari ustiga kelganimizda 
mavzular o‘lchami va rangini o‘zgartirib, animatsiya hosil qilishini ko‘rib o‘taylik. 
Buning uchun 
Object Inspector
oynasidagi 
Events
hodisasidagi 
OnMouseMove
hodisasi ustida sichqoncha chap tugmasi ikki marta tez bosiladi va hosil bo‘lgan 
kodlarni taxrirlash oynasiga quyidagi dastur kodini kiritamiz: 
procedure 
TForm1.StaticText1MouseMove(Sender: 
TObject; 
Shift: 
TShiftState; X, Y: Integer); 
begin 
form1.StaticText1.Font.Size:=18; 
form1.StaticText1.Font.Color:=clblue; 
end;
Bu dastur kodlarini mos ravishda boshqa mavzular uchun ham kiritib chiqamiz. 
Bu bajargan ishimiz dasturni ishga tushirilganda “
Elektron qo‘llanmaning umumiy 
ko‘rinishi
” oynasida yozilgan mavzular nomlari ustida sichqoncha harakatlantirilsa 
mavzular nomlari o‘lchami 14 dan 18 ga, rangi esa qoradan ko‘k rangga o‘zgartiriladi.

---

Raqamli pedagogika: holati va rivojlanish istiqbollari