Delphi tilida

5.Edit komponentasini Standart palitrasidan olib formaga 
o‘rnatamiz va uning Text xossasiga «Kompyuter» qiymatini kiritamiz. 
6.Mos ravishda CheckListBox va Editl komponentasi ramkalari 
yuqorisiga Labell va label2 metkalarini o‘rnatamiz va ulaming Coption 
xossasiga «ATpH6yrjiap» va «06pa3eu» qyimatini beramiz. 
7.RadioGroupl komponentasi maydonini ikki marta tez bosamiz 
va paydo bo‘lgan kodlarni kiritish maydoniga quyidagi kodlarni 
kiritamiz: 

83 

lLTuzilgan loyiha (npoeK T) ya’ni Projectl va Unitl standart modul 
nomlarini mos nomlar bilan almashtirib saqlaymiz. 
12.Yangi nom bilan saqlangan loyiha (npoeier), ya’ni ilova F9 
tugmachasini bosish bilan ishga tushuriladi. 
Ilova ishga tushirilganda uning quyidagi ko‘rinishi ekranda 
namoyon boladi. Endi ilova bilan ishlash mumkin. 
Tashkil qilingan modulning to‘liq ko‘rinishini keltiramiz: 
Unit pxx2; 
interface 
uses 

84 

>r f«»1 

cj<4 

e >vnc.« 
r to 

r KpAtmv 

4iN4JHS 

Windows, Messages, SysUtils, Variants, Classes, Graphics, 
Controls, Forms, 
Dialogs, StdCtrls, ExtCtrls, CheckLst; 

RadioGroup3: TRadioGroup; 
procedure RadioGrouplClick(Sender: TObject); 
procedure RadioGroup2Click(Sender: TObject); 
procedure RadioGroup3Click(Sender: TObject); 
procedure CheckListBoxlClick(Sender: TObject); 

85