Fan nomi: Dasturlash 2 Mavzu

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: