child formların kapanması

[ALUCARD]

s.a
benim yazdığım programda midi ve child formlardan oluşuyor..
kullanıcı 2,3 hatta 6,7, tane chil form açmış olabilir
bunda bi sorun yok
iş bundan sonra baslıyor..

kullanıcı firma değiş dediğinde butun child formların kapanması gerekiyor mantıklı olarak.
active child formu kapatabiliyorm..

ama diğerlerini nasıl kapatabilirim.

birde create edilmiş bir formu tekrar create ettirmemem gerekiyor ben butonu enabled:=false olarak yapıyorum formun kapanışınada enabled:=true yapıyorum daha kısa bi yolu var mıdır...

[derya]

s.a
kullanıcı firma değiş dediğinde butun child formların kapanması gerekiyor mantıklı olarak.
active child formu kapatabiliyorm..

ama diğerlerini nasıl kapatabilirim.

Kod: Tümünü seç

procedure TForm1.CloseAll;
var
  i,n :integer;
begin
  n:= mdichildcount;
  for i:=n-1 downto 0 do
    mdichildren[i].close;
end;

birde create edilmiş bir formu tekrar create ettirmemem gerekiyor ben butonu enabled:=false olarak yapıyorum formun kapanışınada enabled:=true yapıyorum daha kısa bi yolu var mıdır...

tam istediğinizi anlayamadım böyle mi?

Kod: Tümünü seç

var child: TChildFormu;
begin
  child:= TChildFormu.Create(Self);
end:

İstediğiniz kadar chil forumu create edebilirsiniz.[/code]

[ALUCARD]

yanlış anlaşıldım galiga
ben formları create etmek değil etmemek istiyorum yani create edilmiş bir formun tekrar create edilmesi nasıl önlerim

[naile]

Kod: Tümünü seç

if Form1<>nil then // create edilmişse
..

[ALUCARD]

Kod: Tümünü seç

if Form1<>nil then // create edilmişse
..

iide şimdi ben bundan bişey anlamadım

Kod: Tümünü seç

if Form1<>nil then

form create eilmişşe mi demek
teşekkür edrim

[mussimsek]

eğer formun OnClose olayında

Form1 := nil

dersen, bu şekilde formun create edilip edilmediğini kontrol edebilirsin. Bir pointer'a nil atadığın zaman, pointer herhangi birşeyi göstermez (referans etmez).

Kolay gelsin.