IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
formu cagirirken:

TForm2.Create(Application);

 

 

formu kapatırken:

Action := caFree;

 

 

width:976

height:661

 

uses tan sonraya

 

function FormGoster(FormTipi:TFormClass;var Form ):Integer;

var

 i,k,sayac:INTEGER;

 S:String;

begin

 sayac:=0;

 k:=0;

 for i:=Application.MainForm.MDIChildCount-1 downto 0 do

   if (Application.MainForm.MDIChildren[i] is FormTipi) then

    begin

      Inc(sayac);

      k:=i;

   end;

 if (sayac < 1) then

  Application.CreateForm(FormTipi,Form)

 else

 Begin

 Application.MainForm.MDIChildren[k].Show;

 end;

end;

 

FormGoster(TForm25, form25);