procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
Close; // закрывает форму
end;
Dasturni bajarish uchun ishga tushiring va "chiqish" tugmasini bosing.
Keling, bir shakldan ikkinchisiga o'tishni yarataylik.
Buning uchun birinchi shaklga qayting va "darsni boshlash"tugmasini ikki marta bosing. Va ochilgan kod muharriri oynasida quyidagilarni kiritingк од:
form1.hide; // Скрываем первую форму
form2.show; // Показываем вторую форму
Endi ikkinchi shaklni oching. Unga birinchi shaklda joylashtirilgan o'xshash chiqish tugmasini bosing. Kod sifatida, dasturdan chiqish uchun dastur operatoridan foydalaning.Terminate; / / dasturni yopadi.
Dasturni bajarish uchun ishga tushiring. Ishga tushirish vaqtida ekranda quyidagi Delphi xabari paydo bo'ladi:
Delphi, ikki shaklning uses bo'limi bilan bir-biriga aloqasi yo'qligini va ularni bog'lashni taklif qilishini aytadi. Ha tugmasini bosing va dasturni qayta ishga tushiring va tugmalarning to'g'ri ishlashini tekshiring.
Birinchi shaklda "dastur haqida" bir talab qilinmagan tugma qoldi. Boshqa shakl (form3) yarating va ustiga fon tasvirini, o'zingiz haqidagi matnni va birinchi oynaga qaytish tugmasini bosing.
Dasturni o'z ichiga olgan papkaga nusxa ko'chiring, topshiriqning yonida joylashgan bo'sh joy papkasi.
Ikkinchi formada Panel komponentini (st. Standart) o'rnating.
Chiqish tugmachasini (Ctrl+X) kesib, panel komponentini tanlang va buferdan tugmani (Ctrl+V) joylashtiring.
Panel quyidagi xususiyatlarni o'rnatadi : Align = alButtom, Color = clSkyBlue , Height = 30.
Panelning o'ng burchagidagi "chiqish" tugmasini bosing va Anchor xususiyatini quyidagi tarzda o'rnating:
Panelda uchta SpeedButton tugmachasini joylashtiring va jadvalga muvofiq xususiyatlarni sozlang:
Ismi
|
Qiymatlar
|
Name
|
SpeedButton2
|
SpeedButton3
|
SpeedButton4
|
Caption
|
Qaytish
|
|
|
Flat
|
True
|
True
|
True
|
Glyph
|
Qiymatlar
|
Rasm papkasida arrow3l.BMP faylidan rasmni yuklab oling
|
Rasm papkasida arrow3r.BMP faylidan rasmni yuklab oling
|
Panelning chap burchagida "qaytish" tugmasini bosing va tugmani yaqinidagi qolgan ikkita tugmachani bosing chiqish.
Quyidagi tarkibiy qismlarni shaklga qo'ying va ularning xususiyatlarini jadvalga muvofiq sozlang..
Xususiyat Komponenti
|
Xususiyatlari
|
ImageList
|
Komponentni ikki marta bosing va ochilgan oynada "Qo'shish" tugmasi yordamida rasmlarni ish qismidagi papkadan quyidagi tartibda oching:
|
(pp. Win32) komponentni ikki marta bosing va ochilgan oynada "Qo'shish" tugmasi yordamida rasmlarni ish qismidagi papkadan quyidagi tartibda oching:
|
Align = alLeft
Color = clSkyBlue
AutoExpand = true
Komponentni ikki marta bosing va ochilgan oynada "New Item" tugmasini bosing va "lektsiyalar"matnini kiriting.
Keyin "yangi SubItem" tugmasini bosing va matnni kiriting №1 ma'ruza. Dasturlarni ishlab chiqish texnologiyasiga qo'yiladigan talablar.
Keyingi, "yangi Item" tugmasini bosing va matn № 2 ma'ruza qilish. PS ning hayot aylanishi.
Xuddi shunday, yana bir 3 elementni qo'shing:
Dars №3. Modulli dasturlash
Dars №4. Strukturaviy dasturlash
Dars №5. PS disk raskadrovka va sinov
Keyin ma'ruza elementini tanlang, "yangi element" tugmasini bosing va laboratoriya ishlarini matnga kiriting.
Keyin "yangi SubItem" tugmasini bosing va matnni kiriting laboratoriya ishi №1. "Yangi element" tugmasini bosish orqali № 2 laboratoriya ishini qo'shing.
Shundan so'ng Oynani " OK " tugmasi bilan yoping.
Align = alLeft
Beveled = True
Align = alClient
|
Splitter
(стр. Additional)
|
Align = alLeft
Beveled = True
|
WebBrowser
(стр. Internet)
|
Align = alClient
|
Dasturni bajarish uchun ishga tushiring (F9) va kontent qanday ishlashini tekshiring (TreeView komponenti).
Rivojlanish rejimiga qayting va tugma uchun hodisalar ishlovchilarini yarating (tugmani ikki marta bosing)
"Qaytish" tugmasi uchun quyidagi dastur kodini yozing:
Do'stlaringiz bilan baham: |