안녕하세요.

델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다.



님이 원하시는 처리를 하실려면 메인폼에 Child 폼이 생성될 Panel을 하나 가져다 놓으시고 Child폼의 Parent를 Panel로 지정하시면 원하는 처리를 얻으실 수 있습니다.



pnlClient는 메인폼에 Child를 띄울 부모가 되는 콘트롤 입니다.



procedure TMainForm.ButtonClick(Sender: TObject);

var

ab: TFrmAgent;

begin

{기존에 다른 폼이 떠 있는 경우 종료. 같은 폼인 경우 이벤트 탈출}

if pnlClient.ControlCount > 1 then begin

for i := 0 to pnlClient.ControlCount - 1 do

if pnlClient.Controls[i] is TForm then begin

if pnlClient.Controls[i].ClassType = TFrmAgent then

Exit;

TForm(pnlClient.Controls[i]).Close;

Application.ProcessMessages;

end;

end;

ab := TFrmAgent.Create(pnlClient);

ab.Parent := pnlClient;

ab.SetBounds(0,0,pnlClient.Width,pnlClient.Height);

ab.Visible := true;

end;



박병영 wrote:

> 안녕하세요

>

> SDI로 프로그램을 작성했습니다.

> 이것을 MDI처럼 보여줄려면 어