이병돈 wrote:

>

> mdi form을 처음 사용하는데요..

>

> 프로젝트 만들때 main form 이랑 child form을 만든후 모두다 "Auto-Create"로 둔

> 상태에서 프로그램을 실행했거든요..

>

> 그러니 모든 child form이 다 보여지네요.. 그래서 "formx.hide"를 하면

> child form이 없어지지는 않고 minimize만 되구요..

>

> 그래서 child form을 available form으로 만들었는데.. 실행을 한후에는

>

> 만들어놓은 child form을 어떻게 호출하는지, 그리고 어떻게 close하는지 모르겠네요..

>

> 도움을 부탁드립니다..

>

> available child form의 호출과 close 방법좀 알려주세요.. 전 초보거든요..



MDIChildForm := TMDIChildForm.Create(Self);

MDIChildForm.Show;



MDIChilForm.OnClose event

Action := caFree;

도움말 감사합니다..

근데 available mdi child form이 여러개인데 이중에서특정 form을 호출할려구 하면

어떻게 해야 하나요?



=============================================================================

허춘 wrote:

> 이병돈 wrote:

> >

> > mdi form을 처음 사용하는데요..

> >

> > 프로젝트 만들때 main form 이랑 child form을 만든후 모두다 "Auto-Create"로 둔

> > 상태에서 프로그램을 실행했거든요..

> >

> > 그러니 모든 child form이 다 보여지네요.. 그래서 "formx.hide"를 하면

> > child form이 없어지지는 않고 minimize만 되구요..

> >

> > 그래서 child form을 available form으로 만들었는데.. 실행을 한후에는

> >

> > 만들어놓은 child form을 어떻게 호출하는지, 그리고 어떻게 close하는지 모르겠네요..

> >

> > 도움을 부탁드립니다..

> >

> > available child form의 호출과 close 방법좀 알려주세요.. 전 초보거든요..

>

> MDIChildForm := TMDIChildForm.Create(Self);

> MDIChildForm.Show;

>

> MDIChilForm.OnClose event

> Action := caFree;

>

이병돈 wrote:

> 도움말 감사합니다..

> 근데 available mdi child form이 여러개인데 이중에서특정 form을 호출할려구 하면

> 어떻게 해야 하나요?

>

> =============================================================================

> 허춘 wrote:

> > 이병돈 wrote:

> > >

> > > mdi form을 처음 사용하는데요..

> > >

> > > 프로젝트 만들때 main form 이랑 child form을 만든후 모두다 "Auto-Create"로 둔

> > > 상태에서 프로그램을 실행했거든요..

> > >

> > > 그러니 모든 child form이 다 보여지네요.. 그래서 "formx.hide"를 하면

> > > child form이 없어지지는 않고 minimize만 되구요..

> > >

> > > 그래서 child form을 available form으로 만들었는데.. 실행을 한후에는

> > >

> > > 만들어놓은 child form을 어떻게 호출하는지, 그리고 어떻게 close하는지 모르겠네요..

> > >

> > > 도움을 부탁드립니다..

> > >

> > > available child form의 호출과 close 방법좀 알려주세요.. 전 초보거든요..

> >

> > MDIChildForm := TMDIChildForm.Create(Self);

> > MDIChildForm.Show;

> >

> > MDIChilForm.OnClose event

> > Action := caFree;

> >





procedure TfrmMain.PgmStart(TFClass: TComponentClass; var Ref);

var

iChildCount : integer;

begin

// 이미 실행되어 있으면 맨 앞으로 활성화 처리------------------------------

for iChildCount:= 0 to MDIChildCount-1 do

begin

if MDIChildren[iChildCount] is TFClass then

begin

TControl(Ref).BringToFront;

Exit;

end;

end;

// 실행되어 있지 않으면 실행-----------------------------------------------

Application.CreateForm(TFClass, Ref);

TForm(Ref).show;

//--------------------------------------------------------------------------

end;



요 함수를 메인폼에 하나 맹글구여..

Child프로그램을 실행할때 호출하면 되지요..

요러케..



PgmStart(TfrmChild, frmChild);