form olusturma

[oyle]

Merhabalar,

Kod: Tümünü seç

if not Assigned(FrmBilanco) then begin
 FrmBilanco:=tFrmBilanco.Create(self);
 FrmBilanco.show; end else
 FrmBilanco.Show; 

Seklinde formlari cagiriyorum. Benim yapmak istedigim bir procedure olusturup tum formlari o procedure den cagirmak.

Kod: Tümünü seç

 Formcagir(fisgirisi); 

Seklinde.
Bunu nasil yapabilirim acaba?

[Battosai]

Kod: Tümünü seç

FormGoster(Form:TForm);
Begin
 if not Assigned(Form) then 
   begin
       Form:=TForm(Form).Create(nil);
        Form.show;
           end else
          Form.Show;
End;