Merhaba, Bu dersimizde Delphi'de MDI MDIChild form'ları ve onları kullanmayı öğreneceğiz.
Mutlaka herhangi bir programda görmüşsünüzdür. İç-içe olan pencereler.
Fazla uzatmadan dersimize geçelim.
Yeni bir proje oluşturalım. Kaydedelim. Ekranımızda her zamanki gibi bir "Form1" isimli pencere göreceğiz:
Object Inspector panelinden FormStyle yazısını bulalım. Yazının karşısındakı Comboboxöğesinde fsMDIForm seçeneğini seçelim:
Şimdi yeni bir Form oluşturalım. Kaydedelim. Bu form'un da Object Inspector panelinden FormStyle yazısını bulalım. Yazının karşısındakı Combobox öğesinde fsMDIChildseçeneğini seçelim.
Şimdi "Form1" penceresinde TMainMenu öğesi oluşturun. Bu öğe ile bir menü oluşturun. Örnek olarak ben böyle bir menü oluşturdum:
"Yeni" seçeneğine çift tıklayarak şu kodu verelim:
-
-
TForm2.create(self);
---
Şimdi "Form2"de kapatma amaçlı bir menü oluşturalım. Form2'nin İçerisine bir yazı, düğme ve s. koyabilirsiniz. Ben "Sanalkurs.net" yazısı koydum:-
Şimdi Form2'nin -Close Event-'ına şu kodu ekleyelim:-
-
Action := caFree;
---
Deminki "Kapat" seçeneğine çift tıklayarak şu kodu ekleyelim:-
-
form2.close;
---
Test edelim:-
Mutlaka herhangi bir programda görmüşsünüzdür. İç-içe olan pencereler.
Fazla uzatmadan dersimize geçelim.
Yeni bir proje oluşturalım. Kaydedelim. Ekranımızda her zamanki gibi bir "Form1" isimli pencere göreceğiz:
Object Inspector panelinden FormStyle yazısını bulalım. Yazının karşısındakı Comboboxöğesinde fsMDIForm seçeneğini seçelim:
Şimdi yeni bir Form oluşturalım. Kaydedelim. Bu form'un da Object Inspector panelinden FormStyle yazısını bulalım. Yazının karşısındakı Combobox öğesinde fsMDIChildseçeneğini seçelim.
Şimdi "Form1" penceresinde TMainMenu öğesi oluşturun. Bu öğe ile bir menü oluşturun. Örnek olarak ben böyle bir menü oluşturdum:
"Yeni" seçeneğine çift tıklayarak şu kodu verelim:
-
-
TForm2.create(self);
---
Şimdi "Form2"de kapatma amaçlı bir menü oluşturalım. Form2'nin İçerisine bir yazı, düğme ve s. koyabilirsiniz. Ben "Sanalkurs.net" yazısı koydum:-
Şimdi Form2'nin -Close Event-'ına şu kodu ekleyelim:-
-
Action := caFree;
---
Deminki "Kapat" seçeneğine çift tıklayarak şu kodu ekleyelim:-
-
form2.close;
---
Test edelim:-