PANEL VA MEMO KOMPONENTALARI BILAN ISHLASH

PANEL VA MEMO KOMPONENTALARI BILAN  ISHLASH Delphi dasturida yangi forma oynasini ochamiz:  Formaga Standars komponentalar palitrasidan 1ta Panel komponentasini joylashtiramiz: Izoh:Panel   komponentasi   xuddi   GroupBoxg   komponentasiga o’xshash     bir   necha   komponentalarni   birlashtirish   uchun   xizmat qiladi.  Panel1   komponentasini   formaning   pastki   qismiga   yopishtirish   uchun Object Incpektor oynasining Align qismining alBotton ni tanlaymiz: Panel1 komponentasidagi yozuvni Object Incpektor oynasining Caption xossasiga kirib uchiramiz: Panel1 komponentasini aktivlashtirib Standart komponentalar palitrasidan komponentaga   2ta   Edit  komponentasini    joylashtiramiz   va   ularning qiymatini o deb qo’yamiz: Formaga Standars komponentalar palitrasidan 1ta Memo komponentasini joylashtiramiz: Memo   komponentasi   formaning   bo’sh   joyini   to’liq   egallashi   uchun Object Incpektor oynasining Align xossasidan alClientni tanlaymiz. Memo1   komponentadagi   yozuvni   uchiramiz.   Yozuv   Object   Incpektor oynasining Lines xossasidan uchiriladi. Panel1 komponentasini aktivlashtirib Standart komponentalar palitrasidan komponentaga 4 ta Button komponentasini joylashtiramiz: Button1­+, Button2­­, Button3­*, Button4­/ komponentalar nomini Object Incpektor oynasining Capsion xossasiga kirib o’zgartiramiz: Memo1 komponentasiga  siljitkich o’znatish Object Incpektor oynasining ScrollBars   xossasidan   bajariladi.   ScrollBars­ssVerticalni   tanlash   orqali vertikal siljitkich o’rnatildi. Kodlarni   tahrirlash   oynasini   ochamiz.   Ikkita   sonning   yig’indisini topuvchi prosedura tuzamiz: Dastur   davomida   Memo1   komponentasi   bilan   ham   ishlashimiz   uchun procedure summa (a,b:integer); Publik bo’limiga qo’shib qo’yamiz:    Proseduraga   procedure   so’zidan   keyin   TForm   forma   nechanchi   sonli bo’lsa   o’sha   sonni   kiritib   qo’yamiz.   Masalan   TForm1.   Qiymatlarni chiqarish uchun Memo1 komponentasiga quyidagilarni kiritamiz: Button1­+tugmasiga   sichqonchani   chiqillatib,   Kodlarni   tahrir   qilish oynasida yig’indi uchun  quyidagi dasturni tuzamiz: Dasturni ishga tushiramiz(F9) va quyidagi natijani olamiz. Ushbu oynada ixtiyoriy ikkita son kiritamiz va yig’indi(+) belgisini chertamiz. Natija quiydagicha: Shu tartibda qolgan amallarga ham dastur tuzib olamiz: Ushbu proseduralarni Public bo’limiga ham  qo’shib qo’yamiz: Button2=­­, Button3=*, Button4=/ tugmalariga ham shu tartibda dastur tuzib olamiz: Dasturni ishga tushiramiz (F9). Ikkita son kiritamiz. +,­,* va / amallari yozilgan Button tugmalarini ketma­ket chertamiz. Natija quyidagicha: function Summ (a,b:integer):Integer;  nusxalab public bo’limidagi {Public declarations}yozuvidan keyin qo’yamiz. Ushbu funksiyani bu yerga qo’yilishi funksiyani   forma ichidagi barcha   komponentalar va   lokal o’zgaruvchilarni ko’rish imkonini beradi: Ichma­ich joylashgan bir necha funksiyani ham hisoblashimiz mimkin: Dasturni ishga tushiramiz (F9). Button1 tugmasicha sichqoncha bilan chertamiz. Natija quyidagicha: Dasturni saqlab qo’yamiz.