[Kaf_Dağı]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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);