이중철 , 라벤더 , Crazy™ 님 답변감사합니다.

델파이 공부에 많은 도움이 되었습니다^^

님이 하고자 하는 방식은 실제로 많이 쓰는 방식입니다.

이 방식은 코드의 재사용과 소스자체의 분리를 도모할 수 있죠

제가 10년전에 했던 프로젝트를 기초로 말씀 드리겠습니다. 그때는 VB와 API로 구성했지만..

메인의 구성을 보겠습니다.

|    MENUS .....................................
--------------------------------------------
|    TOOL BAR & TOOL BUTTONS
--------------------------------------------
|
|     COMMON BASE FORM(Panel로 구성)
|
--------------------------------------------
|
|
|     SUB VIEW FORM(Panel로 구성)
|
---------------------------------------------
|    STATUS BAR
---------------------------------------------


COMMON BASE FORM 은 SUB VIEW FORM 과 함께 공통적으로 보는 폼이겠죠
SUB VIEW FORM은 메뉴 클릭시 스위칭되는 폼입니다.


COMMON BASE FORM의 해당하는 부분는 PANEL로 구성하고요(TOPPANEL 로 정함)
SUB VIEW FORM도 PANEL로 구성합니다.(SUBPANEL 로 정함)


그럼 실제 스위칭은 어떻게 할까요 ?

이 SUBPANEL로만 기초에서 서술

버튼 클릭시 로직은
  조회버튼 클릭
     1. SUBPANEL 에 이미 오픈되어 있는 폼 삭제
     2. 조회폼 오픈하여 SUBPANEL 에 귀속
  입력버튼 클릭
     1. SUBPANEL 에 이미 오픈되어 있는 폼 삭제
     2. 입력폼 오픈하여 SUBPANEL 에 귀속
   ........


이경우 메인폼에 기본적으로 있어야 Function은 두가지 입니다.
바로 삭제와 귀속이죠

[미리 알아야 할 상식]
  Control들은 ChildControl을 가질 수 있다.
  TForm에서 상속된 폼들은 is TFORM 하면 모두 TRUE 이다.
  <- 이거 몰라서 노가다 하시는 분 많아요 일일히 정의된 폼클래스 다 집어넣고 .. ㅋㅋ ->

Procedure TFmMain.ClearFormOfPannel(TargetPanel : TPanel);
var i : integer;
begin
   For i := 0 to TargetPanel.ControlCount - 1 do
     if TargetPanel.Controls[i] is TFORM then
       TFORM(TargetPanel.Controls[i]).Close;
end;    

Procedure TFmMain.OpenFormOfPannel(TargetPanel : TPanel; SourceForm : TFORM);
begin
  SourceForm.BorderStyle := bsNone;   // 캡션을 없앤다.
  SourceForm.Align := AlClient; // 부모의 영역에 꽉 채운다.(이거 말고 Windowstate 를 바꾸어도 상관없음)
  SourceForm.Parent := TargetPanel;
  TargetPanel.Show;
end;    


그럼 실제버튼 클릭시 어떻게 쓸까
조회예)
Procedure TFmMain.BtnSearchClick(Sener : TObject);
begin
  ClearFormOfPannel(SUBPANEL);  // 들어갈 패널을 클리어 한다.
  OpenFormOfPannel(SUBPANEL, TFMSearch.Create(Self));
end;
입력예)
Procedure TFmMain.BtnSearchClick(Sener : TObject);
begin
  ClearFormOfPannel(SUBPANEL);  // 들어갈 패널을 클리어 한다.
  OpenFormOfPannel(SUBPANEL, TFMInsert.Create(Self));
end;


어느정도 설명이 되었는지 모르겠네요(따로 테스트는 안해 보았지만 되겠죠)

안녕하세요 ^^

님 생각 충분히 알았구요 ^-^ ;

근데.. 아무래도 폼을 두 개 생성하는 것 보다는

Panel을 사용하는 것이 쉬울 듯 하네요-

메뉴 Change에 이벤트를 걸어서

Panel 두 개에 대한 Visible속성을 바꿔주면 되겠죠 -

그럼 즐코하세요~

안녕하세요.
결정은 님이 하시겠지만 제 생각으론 폼을 왜 2개를 만들어서 할까??라는 의문이 듭니당...
여튼 머..
방법은 많을것 같습니다.
폼2개모두 mdi 로 하시고 메뉴클릭 이벤트에서 폼 사이즈와 위치만 처리하면 되겠죠...

<!--CodeS-->
procedure TForm1.Button1Click( sender : TObject );
begin
        if FindForm('from3' ) then
        begin
                 Form3.Close;
        end;
        Form2 := TForm2.Create( Application );
        Form2.Show;
end;

function TForm1.FindForm(const ActForm: string): Boolean;
var
  I: Integer;
begin
  Result := False;
  for I := 0 to MDIChildCount - 1 do
    if UpperCase( MDIChildren[I].Name ) = UpperCase( ActForm ) then
    begin
      Result := True;
      Break;
    end;
end;
<!--CodeE-->
개인적인 생각인데..글쎄요 저라면 판때기를 이용하거나 스플리터를 이용하는게..낫지 않을까 합니다
즐프하세욤.