MDIChild

[mrtblt]

Programda

frm_clients1 formu var. Ve bunu MDI formdan asagidaki kod ile aciyorum

Kod: Tümünü seç

  if frm_clients1 = nil then
  begin
    frm_clients1 := Tfrm_clients1.create(self);
    frm_clients1.show;
  end;

OnClose eventi ecinde asagidaki kodu kullaniyorum

Kod: Tümünü seç

procedure Tfrm_clients1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  self.Free;
  frm_clients1 :=nil;
end;

Birde frm_clients formu var. Ve bunu frm_clients1 formundan asagidaki kod ile aciyorum

Kod: Tümünü seç

  if frm_clients = nil then
  begin
    frm_clients := Tfrm_clients.create(self);
    frm_clients.show;
  end;

OnClose eventi ecinde asagidaki kodu kullaniyorum

Kod: Tümünü seç

procedure Tfrm_clients.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  self.Free;
  frm_clients :=nil;
end;

Sorunum su. Her iki formda acikken frm_clients formunu kapattigimda frm_clients1 de kapaniyor ve program icerisinde bir daha acamiyorum

Yani inheritence gibi bi sey mi var acaba. bir form kapandiginda beraberinde actigi formda kapaniyor