Delphi tilida

Button2Click(Button2); 
end; 

112 

Izoh! Bu yerda qora yozilgan dastur kodlari kiritiladi. Qolganlari 
o‘zi mavjud. Bu qora yozilgan kodlar mos modul protseduralariga 
murojaatni anglatadi. Bu modul protseduralari oldin «Ochish», 
«Saqlash» va «Shrift» tugmalari uchun yozilgan. Bu murojaatlami 
yozmasdan ular o‘rniga «Ochish», «Saqlash» va «Shrift» tugmalari 
uchun yozilgan dastur kodlarini yozsa ham boladi. 
5.Tuzilgan loyiha (proyekt) ya’ni Projectl va Unitl standart modul 
nomlarini mos nomlar bilan almashtirib saqlaymiz. 
6.Yangi nom bilan saqlangan loyiha, F9 tugmachasini bosish bilan 
ishga tushiriladi. 
Ilova ishga tushirilgandan keyin sichqonchaning o‘ng tugmasi 
bosilsa u quyidagi ko‘rinishda ekranda namoyon boladi. 

»rfniol 

B-aeneansaearaenaen aBnanae 
n eaneanea aBHBanBan 

Eqri 

0 ;htsli 

4.8. Bir necha formalar bilan ishlash 

Loyihada bir necha formalar bilan ishlashni misolda ko'rib 
chiqamiz. Yangi loyiha yaratib, formaga boshqarish tugmasi (Buttonl) 
va ilova komponentasini (Labell) joylashtiramiz. Boshqarish 
tugmasining Click hodisasiga quyidagi kodni kiritamiz: 

113 

Procedure TForml.ButtonlClick(Sender: TObject); 
Begin 
Form2.Show; 
Labell.Caption:='Ko‘p formali loyiha'; 
end; 
Endi loyihaga yangi forma qo‘shamiz. Buning uchun Menyu File 
bolimidan New punktini, so‘ngra Form punktini. 
Loyihalar menejerini (View ->Project Manager) ochib Projectl.exe 
loyihamizda ikki forma Unitl i Unit2 borligini ko‘rishimiz mumkin. 
Formalaming biriga ikki marta chertilsa, tizim oynasida shu formani 
o‘zgartirish mumkin bo‘ladi. 

Tfc QcV fCafdi Vev* [YoKct P,ur ^cmpoocf* g

| ^OT^Vinn 

. . . 
3P CLXApptaOOft