Delphi tilida

ptoptft... CM-t-Fll 

1- 

Q 
A< . 
B Fr«*ie 

„ 

E cbst 
hf 
1 

CQuo‘llnr 

.. 

/lCxt 

Ikkinchi formaga boshqarish tugmasi (Buttonl) va tahrirlash 
qatorini (Editl) joylashtiramiz. Boshqarish tugmasining Click 
hodisasiga quyidagi kodni kiritamiz: 
Procedure TForm2.ButtonlClick(Sender: TObject); 
Begin 
Forml.Labell.Caption:=Editl.Text; 
Form2.Close; 
end; 

114 

■ 

HT>- 
IMQ 

Uf. 
a * 

HJ' 
Agar loyihani kompilyatsiya 
qilsak, xato haqida ma’lumot 
chiqadi.Chunki ikkinchi forma 
Unit 2 da ta’riflangan, biz uni 
birinchi formada ishga tushi- 
ryapmiz. Birinchi formaga 
o‘tib. File menyusidan Use Unit 
punktini tanlaymiz. Quyidagi 
oyna ochiladi: 
Bu oynada kerakli Unit 
tanlab, OK tugmasini bosa- 
miz.Quyidagi kod qo‘shiladi: 

var 
Forml: TForml; 
implementation 
uses Unit2; 
Bu kodni qo‘lga kiritish ham mumkin. Bundan tashqari, agar 
modul qo‘shilmagan bo‘lsa. loyihani ishga tushirishda quyidagi 
ma’lumot oynasi chiqadi: 
InfornvM un 

1

FtfmTofrtH"reftrtfcM fe*m RymZ ded*td ri '_iV.Urtt? wHih Hrtflt ifiyCur 

\ : ^ : : l 
l 
I 

Agar «Yes» tugmasi bosilsa, modul avtomatik ravishda qo‘shiladi. 
Agar biz dastumi ishga tushirsak, ekranda birinchi formani aktiv 
holda ko‘ramiz. Agar boshqarish tugmasi bosilsa, ekranda ikkinchi 
forma aktiv holda paydo boladi. Shu bilan birga, Labell ustidagi 
yozuv ham o‘zgaradi, ya’ni Caption xossasi dasturda ko‘rsatilgan 
qiymatni oladi. Ikkinchi formada tahrirlash qatoriga biror satr kiritib, 
boshqarish tugmasini bossak, bu forma bekiladi va Labell kom- 
ponentasi Caption xossasiga biz kiritgan satr qiymat sifatida beriladi. 
Endi birinchi formadagi boshqarish tugmasining Click hodisasiga 

115 

kodni kiritamiz: