Amaliy ish №20. Delphi muhitida Windowsning elementar ilovasini yaratish

Ishning maqsadlari: Ishning maqsadi vizual dizayn muhitida Windows dasturi interfeysining asosiy standart elementlarini yaratish metodologiyasi va tamoyillarini amaliy ishlab chiqishdir.
Quyidagi loyihada biz quyidagi minimal komponentlar to'plamidan foydalanamiz.
T ugmacha - standart tugma, odatda tugma amalni boshlash uchun ishlatiladi, faqat OnEvent usuli (bosishga reaktsiya) ishlatiladi. Default=True xossasi kiritish komponentini Enter tugmasi bilan, Cancel=True esa Esc tugmasi bilan bog‘laydi. Sarlavha dizayni uchun Rang xususiyati yo'q (Sozlavha). Sarlavha matnida joylashtirilgan ampersand ishga tushirish uchun Alt tugmachasini belgilaydi, masalan, Caption=A&Ppend tugmasi Alt-P bosilganda tugmani ishga tushirishga olib keladi. ModalResult=true xossasi bola oynasini yopish uchun bosish zarurligini aniqlaydi.
Y orliq - yozuv sifatida yoki o'qish uchun ma'lumotni ko'rsatish maydoni sifatida ishlatiladigan yorliq. Tugma kabi, yorliq tugmasi ham yorliq uchun belgilanishi mumkin, lekin u yorliq bilan bog'langan komponentni ishga tushiradi (FocusControl tomonidan). AutoSize=True xossasi yozuv matni uchun yorliq hajmini minimallashtirishni, Alignment - bu matnni markazlashtirishni, WordWrap - matnni bir necha qatorga joylashtirish imkoniyatini, Transparent - boshqa elementlarga qo'llanganda shaffoflikni belgilaydi.
T ahrirlash - kiritish qatori. Bu komponentda sarlavha mavjud emas, lekin u satr mazmuni sifatida Text xususiyatiga ega. Bu xususiyat ham o‘qilishi, ham tayinlanishi mumkin (ixtiyoriy ravishda MaxLength xususiyatini belgilash orqali uzunlik bilan chegaralanadi). Maxfiy ma'lumotlarni kiritishda ko'rsatiladigan belgilarni (odatda "*") belgilang, shu bilan birga PasswordChar xususiyatini # 0 dan boshqa narsaga o'rnatib bekor qiling.
K laviaturadan kiritilgan ikkita raqamni jamlash loyihasini tuzamiz .
Bunday holda, summani ko'rsatish uchun shaklga to'rtta teg (taglavha xususiyatlari o'rnatiladi) va bo'sh Sarlavhali beshinchi yorliq joylashtirilishi kerak. Raqamlarni kiritgandan so'ng yig'ish jarayonini boshlash uchun yig'ilgan raqamlar uchun ikkita kiritish qatorini ("birinchi" va "ikkinchi" yorliqlariga qarshi) va bitta "Hisoblash" tugmasini belgilang.
Tugmani ikki marta bosgandan so'ng, siz ushbu tugmani bosish uchun reaktsiya protsedurasi shablonini to'ldirishingiz mumkin (kirish matni ramka bilan ta'kidlangan).
protsedura TForm1.Button1Click(Sender: TObject);
var a,b,c: real;
s : string _ kod : butun son ;
boshlanishi
{tahrirlash maydonlaridan ma'lumotlar kiritish}
val(edit1.matn,a,kod);
val(edit2.text,b,kod); c:=a+b;
str ( c :–10:4, s ); {raqamni satrga aylantirish}
yorliq 5. Sarlavha := s
oxiri ;

3. 
   Mashq qilish. Raqamli soat
   

Ishning vazifalari: raqamli soat turli tezliklarda ishlaydigan Windows dasturini yaratish

1. 
   Form1da Label (Standart yorlig'i) va Timer (tizim) komponentlarini joylashtiring.
   
2. 
   Quyidagi ob'ekt xususiyatlarini o'rnating