MDI Form?

Sychorax · 19/09/2004, 06:47

Benim iki tane formum var.Biri ana form(form1) öbürü mdichild form(form2).
Ben application.createform(TForm2,form2) şeklinde yeni form oluşturuyorum.Formların isimleride "Form2_1,Form2_2" gibi sırayla gidiyor.
screen.activeform yazarak aktif formu buluyorum. ama aktif formu TForm olarak alıyor,doğal olarak üzerindeki nesnelere ulaşamıyorum.Aktif formu Form2 olarak nasıl alabilirim.
Şimdiden sağolun

raist_TR · 20/09/2004, 12:00

Bence şöyle bir yol kullanabilirsin...

var i,ComponentNum:integer;

begin

// Aktif formun component sayısını bul.
ComponentNum:=Screen.ActiveForm.ComponentCount

for i:=0 to ComponentNum-1 // Döngü oluştur.

if Screen.Components[i].ClassName='TEdit' then
begin
TEdit(Screen.Components[i]).Text:='.......';
TEdit((Screen.Components[i]).Width:=150;
....
end;

....
....
....

{
Bu şekilde Eğer "i" numaralı Component TEdit ise TEdit(Screen.Components[i]) diyerek
TEdit' e ait tüm kontrolleri yapabilirsin. Fakat "if Screen.Components[i].ClassName='TEdit' then " kontrolünü koymayı unutma her seferinde bence...
}

end;

Sychorax · 20/09/2004, 13:11

Sağolasın bende delphi.about.com'daki MDI makalelerinden buldum bii iki şey(aslında baya şey varmış orda)

Tform2(ActiveMDIChild) şeklinde alırsan aktif formu veriyor

raist_TR · 20/09/2004, 21:20

TForm(ActiveMDIChild) dersen veya senin dediğin gibi; (ActiveMDIChild) ile belirttiğin Kontrol TForm sınıfı bir eleman gibi davranır. Bu şekilde TForm için kullandığın özelliklerini diğer tüm Komponentler için kullanabilirsin. Ama dediğim gibi başta hangi sınıfa ait olduğunu "Components[i].ClassName='TEdit' then" gibi bir kontrol yöntemiyle kontrol et. Yoksa hata verebilir yazdığın kod.

free · 21/09/2004, 12:38

Benim de MDI formlarla sorunum var. Anaform açılır açılmaz diğer child formlarda açılıyor. Child formları ben manual açmak istiyorum. Her child form ayrı bir içeriğe sahip. Bu konuda bilgisi olan var mı?

raist_TR · 21/09/2004, 13:47

Bu şeklide de yapabilirsin bence...
Mesela bütün MDIChild ları senin dediğin gibi açılsın. Ama 1 tane daha MDIChild oluştur. Bu Child senin default açılış formun olsun. İstediğin Grafiği buna yerleştir (Gzel bir artalan resmi olabilir. Ben genelde böyle yapıyorum). Bu formun default olarak MDIForm açıldığında görünür diğerlerinin görünür olmaması için Project>Options>Forms kısmından Auto-Create forms kısmındaki listenin en alt kısmına koy. Bu formun windowstate özelliğini wsMaximize ayarla. BorderStyle özelliğini bsToolWindow olarak ayarla. Bu Şekilde göze de hitap ediyor. Ben bu şekilde yapıyorum. Belkide alışkanlıktandır.

19/09/2004, 06:47	#1 (permalink)
Sychorax Aborjin özentisi şahıs Üyelik Tarihi: 05/2004 Yer: dünya Mesaj: 51	MDI Form? Benim iki tane formum var.Biri ana form(form1) öbürü mdichild form(form2). Ben application.createform(TForm2,form2) şeklinde yeni form oluşturuyorum.Formların isimleride "Form2_1,Form2_2" gibi sırayla gidiyor. screen.activeform yazarak aktif formu buluyorum. ama aktif formu TForm olarak alıyor,doğal olarak üzerindeki nesnelere ulaşamıyorum.Aktif formu Form2 olarak nasıl alabilirim. Şimdiden sağolun

21/09/2004, 12:38	#5 (permalink)
free Üye Üyelik Tarihi: 07/2003 Yer: Ankara Mesaj: 17	yaramaz child formlar Benim de MDI formlarla sorunum var. Anaform açılır açılmaz diğer child formlarda açılıyor. Child formları ben manual açmak istiyorum. Her child form ayrı bir içeriğe sahip. Bu konuda bilgisi olan var mı?

Benzer Konular
Konu	Konuyu açana göre	Forum	Cevap	En Son Mesaj
Form içinde form veya ajax	g_azlag	Javascript / DHTML / Ajax	0	25/01/2007 15:24
hızlı erişim form asp form ile okutma	kersinem	ASP	2	20/05/2006 22:20
access: özet tablo görünümlü form butonla açıldığında tek form görünümünde açılıyor	savask	Veritabanları & SQL	0	01/05/2006 11:29
Manyetik Form, yapışık form, Winamp gibi formlar ya da adı herneyse	Sedat Atif	Pascal / Delphi / Delphi.NET	6	04/11/2003 14:21

20/09/2004, 12:00	#2 (permalink)
raist_TR Üye Üyelik Tarihi: 08/2004 Mesaj: 24	Bence şöyle bir yol kullanabilirsin... var i,ComponentNum:integer; begin // Aktif formun component sayısını bul. ComponentNum:=Screen.ActiveForm.ComponentCount for i:=0 to ComponentNum-1 // Döngü oluştur. if Screen.Components[i].ClassName='TEdit' then begin TEdit(Screen.Components[i]).Text:='.......'; TEdit((Screen.Components[i]).Width:=150; .... end; .... .... .... { Bu şekilde Eğer "i" numaralı Component TEdit ise TEdit(Screen.Components[i]) diyerek TEdit' e ait tüm kontrolleri yapabilirsin. Fakat "if Screen.Components[i].ClassName='TEdit' then " kontrolünü koymayı unutma her seferinde bence... } end;

20/09/2004, 13:11	#3 (permalink)
Sychorax Aborjin özentisi şahıs Üyelik Tarihi: 05/2004 Yer: dünya Mesaj: 51	Sağolasın bende delphi.about.com'daki MDI makalelerinden buldum bii iki şey(aslında baya şey varmış orda) Tform2(ActiveMDIChild) şeklinde alırsan aktif formu veriyor

20/09/2004, 21:20	#4 (permalink)
raist_TR Üye Üyelik Tarihi: 08/2004 Mesaj: 24	TForm(ActiveMDIChild) dersen veya senin dediğin gibi; (ActiveMDIChild) ile belirttiğin Kontrol TForm sınıfı bir eleman gibi davranır. Bu şekilde TForm için kullandığın özelliklerini diğer tüm Komponentler için kullanabilirsin. Ama dediğim gibi başta hangi sınıfa ait olduğunu "Components[i].ClassName='TEdit' then" gibi bir kontrol yöntemiyle kontrol et. Yoksa hata verebilir yazdığın kod.

21/09/2004, 13:47	#6 (permalink)
raist_TR Üye Üyelik Tarihi: 08/2004 Mesaj: 24	Bu şeklide de yapabilirsin bence... Mesela bütün MDIChild ları senin dediğin gibi açılsın. Ama 1 tane daha MDIChild oluştur. Bu Child senin default açılış formun olsun. İstediğin Grafiği buna yerleştir (Gzel bir artalan resmi olabilir. Ben genelde böyle yapıyorum). Bu formun default olarak MDIForm açıldığında görünür diğerlerinin görünür olmaması için Project>Options>Forms kısmından Auto-Create forms kısmındaki listenin en alt kısmına koy. Bu formun windowstate özelliğini wsMaximize ayarla. BorderStyle özelliğini bsToolWindow olarak ayarla. Bu Şekilde göze de hitap ediyor. Ben bu şekilde yapıyorum. Belkide alışkanlıktandır.

Seçenekler
Yazdırmaya Uygun Sayfa Sayfayı E-posta İle Gönder