show를 사용하세요...

그리고 free 폼에서 하시고요..

showmodal와 show 차이 있는데.. Q&A에서 찾아보면 내용이 있는것 같은데..

조금 찾아보세요..



그럼 수고하세요..

참신 wrote:

> 메인 화면에서 서브화면을 호출하는 방법을 알고싶습니다.

>

> 현재 메인폼안에서

> frm_ConsultAdd := Tfrm_ConsultAdd.Create(Application);

> frm_ConsultAdd.ShowModal;

> frm_ConsultAdd.Free;

> 식으로 호출 합니다

>

> 하지만 서브화면이 동작중에도 메인화면이 클릭되도록 하고 싶습니다.

> 방법좀 알려 주십시요.

>

> 정말 초보라 미안합니다.

HART wrote:

> show를 사용하세요...

> 그리고 free 폼에서 하시고요..

> showmodal와 show 차이 있는데.. Q&A에서 찾아보면 내용이 있는것 같은데..

> 조금 찾아보세요..

>

> 그럼 수고하세요..

> 참신 wrote:

> > 메인 화면에서 서브화면을 호출하는 방법을 알고싶습니다.

> >

> > 현재 메인폼안에서

> > frm_ConsultAdd := Tfrm_ConsultAdd.Create(Application);

> > frm_ConsultAdd.ShowModal;

> > frm_ConsultAdd.Free;

> > 식으로 호출 합니다

> >

> > 하지만 서브화면이 동작중에도 메인화면이 클릭되도록 하고 싶습니다.

> > 방법좀 알려 주십시요.

> >

> > 정말 초보라 미안합니다.



*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^

한창희 가라사대



메인폼는 먼저 Proferties에서 아래와 같이 설정하셔야 합니다.



FormStyle := fsMDIForm



서브폼는 먼저 Proferties에서 아래와 같이 설정하셔야 합니다.



FormStyle := fsMDIChild



그리고 메인폼에서 서브폼를 부를때는



procedure TFMain.Mn_MunSeEditClick(Sender: TObject);

var bExist : Boolean;

nCCount: Word;

begin//서브폼호출

bExist := False;

for nCCount := 0 to MDIChildCount - 1 do

begin

if MDIChildRen[nCCount] is TFmun01_ipt then bExist := True;

end;

if bExist then

begin

Fmun01_ipt.Show;

end else

begin

Fmun01_ipt := TFmun01_ipt.Create(Application);

try

Fmun01_ipt.Show;

except

Fmun01_ipt.Free;

end;

end;

end;



요렇게 하셔야 되고요.



또한 어떻것이 메인폼인지를 설정하기 위해서 Ctrl+Shift+F11 를 누르시면

Project Options 이 나타날 것입니다. 여러개의 Option 판넬중에서 Foms 에서 메일폼과

서브폼들을 나누어서 설정합니다.



Main form: 에는 메인이 되는 폼을 지정하신면 되구요.

Auto-create form: 에는 자동으로 생성하는 메인폼과 자동으로 생성하는폼들을

설정하시면 되구요.

Avaliable form: 에는 서브폼들을 설정하시면 되지요.^^

*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^*^.^