폼 띄우기 및 해제하기

폼 스타일이 fsNoraml 일경우 MDI 일경우에는 cafree 해주어야 한다.

MDI 는 델마당에서 검색해봐

 

1. ShowModal function

 

    // 첫번째 방식

    //부모폼

    ViewBizSchDlg := TViewBizSchDlg.Create(Application);
    try
      ViewBizSchDlg.ShowModal;
    finally
      ViewBizSchDlg.Free;
    end;

 

    // 두번째 방식

    //부모폼

    ViewBizSchDlg := TViewBizSchDlg.Create(Application);
    ViewBizSchDlg.ShowModal;

 

    //자기자신

   procedure TViewBizSchDlg.FormClose(Sender: TObject; var Action: TCloseAction);
   begin
     Action := caFree;
   end;

 

 

2. Show procedure

 

    //부모폼

    ViewBizSchDlg := TViewBizSchDlg.Create(Application);
    ViewBizSchDlg.Show;

 

    //자기자신

    procedure TViewBizSchDlg.FormClose(Sender: TObject; var Action: TCloseAction);
    begin

      ViewBizSchDlg := nil;
      Action := caFree;
    end;

 

* 자주열고 닫힐 경우는 create, free 를 계속하지 않는게 더 좋겠지 ^^