MDIChild formla ilgili bir sorun

[borntodie]

Merhaba arkadaşlar,

Delphi ile arayüz oluşturuyorum. Arayüzde; 1tane MDIForm ve 4 tane MDIChildForm bulunmakta.Başlangıçta bu Childformlar gözükmüyor. Bu MDIChildFormları araç çubuğuna koyduğum 4 tane toolbutton ile ekrana ayrı ayrı getirebiliyorum. Ekrana gelen bu MDIChildFormu kapatıp tekrar açmak istediğimde bu form açılmıyor. Yazdığım kod şöyle:

procedure TForm1.monitortoolClick(Sender: TObject);
begin
if Form4=nil then
begin
Form4:=TForm4.Create(self);
Form4.Show;
Form4.Caption:='Command Monitor';
end;
end;

Yazılımı nasıl değiştirmeliyim? Yardımcı olablir misiniz?

[frost majere]

mdichild formun onclose eventine

Kod: Tümünü seç

canClose := caFree;
form4 := nil

yazarsan buyuk ihtimalle calisir

[F.Atagun]

Hocam ben aynı arkadaşın dediği gibi açmak için bunu

Kod: Tümünü seç

Application.CreateForm(TForm42,Form42);
if Form42=nil then
Application.CreateForm(TForm42,Form42);
Form42.Show;

kapamak için bunu kullanıyorum.

Kod: Tümünü seç

Action := caFree;
Form42:=nil;

Gayet güzelde çalışıp hiçbir sorun çıkartmıyor



Kolay gelsin

[borntodie]

Teşekkür ederim arkadaşım. Bahsettiğin kodu onclose'a ekledim. Gayet güzel çalışıyor.
Kolay gelsin...

[F.Atagun]

Rica Ederim hocam, Sorunun çözüldüğüne sevindim.

Kolay gelsin