Endi taxrirlanuvchi maydonga matn kiritishga va sichkoncha yordamida tugmaga bosganda bu matnni ruyxatga kushishga yordam beruvchi oddiy ilova yaratib kuramiz. Loyixani yaratish uchun menyuning File/NewApplicationpunktini tanlaymiz va uning asosiy shakl oynasini samp1.cppnomi bilan, loyixaning uzini esa samp.maknomi bilan saklaymiz. Shakl oynasiga komponentlar palitrasining Standardsaxifasidan Button, Edit va ListBoxkomponentlarini joylashtiramiz.
Rasm.9. Komponentlarni shakl oynasiga joylashtirish. Shundan sung shakl oynasidagi Edit komponentini tanlaymiz va undagi Text kiymatini uchirib tashlaymiz. Undan keyin Button1 uchun Caption xususiyatini «kushish» axamiyati bilan urnatamiz .
«Kushish» tugmasi uchun OnClick xodisa ishlab chikuvchisini kushish uchun, bu tugmani shakl oynasidan tanlab olish, ob’ektlar inspektorida xodisalar saxifasini ochish va OnClick xodisasidan ungdagi kolonkaga sichkoncha bilan ikki marta bosish kerak. Kerakli kiritish satrida funktsiyaning nomi paydo buladi. C++ Builder xodisa ishlab chikuvchisi prototipini generatsiya kiladi va uni kod muxarririda kursatadi. Shundan sung kuyidagi funktsiyaning tanasi xisoblangan kodni operatorli kavslar { ... } ichiga kiritish kerak buladi.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (!(Edit1->Text == ""))
{
ListBox1->Items->Add(Edit1->Text);
Edit1->Text = "" ;
}
}
Ilovanikompilyatsiyakilishuchun Run menyusidan Run punktinitanlaymiz. Enditaxrirlanuvchimaydongabirornarsakiritib, sichkonchabilan «kushish» tugmasigabosib, kiritilayotgansatrlarruyxatgakushilayotganigaishonchxosilkilishmumkin.
Rasm.10. Tayyor ilova manna shu kurinishda buladi. Endi ilovani «Uchirish » va «Chikish » tugmalarini kushib modifikatsiya kilamiz. Buning uchun yana ikkita tugma kushamiz, ularning Caption xususiyatini uzgartiramiz va shu tugmalarga bosish bilan boglik bulgan xodisa ishlab chikuvchisini yaratamiz:
Rasm.11. Modifikatsiyalangan ilova «Uchirish» tugmasi uchun:
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (!(ListBox1->ItemIndex == -1))
ListBox1->Items->Delete(ListBox1->ItemIndex);
}
«Chikish» tugmasiuchun:
Close();
