Q&A

  • 쉬운것같은데 않되네요.
메인폼을 띄우면서 차일드폼을 띄울려고합니다.

Project ->Options -> Auto Create Forms에다

폼을 두면 자동으로 생기는건 알지만

코딩으로 생성할려고 합니다.

OnCreate,OnActivate,OnShow에서 생성해봤지만

메인폼이 Activate되지 않았다는 에러만 뜨네요.



For i := 0 To MDIchildCount-1 Do

If UpperCase(MDIChildren[i].Name) = 'TfSIM_PARA' Then

Begin

MDIChildren[i].ActiveMDIChild;

Exit;

End;

Child_Form := TfSim_Para.Create(Application);

Child_Form.Show;

Create하는게 잘못됐나요?

쉬운것같은데.. 무지하게 않되네요.

고수님들의 해결책을 부탁드립니다.

3  COMMENTS
  • Profile
    최정 2000.10.31 20:36
    Child_Form := TfSim_Para.Create(Application);

    Child_Form.Show;



    위부분을 아래와 같이 하면 될것 같은데요. 테스트 환경이 안되서 그러니

    안되면 연락주십시오.



    Application.CreateForm(TfSIM_PARA, Child_Form);





    호야 wrote:

    > 메인폼을 띄우면서 차일드폼을 띄울려고합니다.

    > Project ->Options -> Auto Create Forms에다

    > 폼을 두면 자동으로 생기는건 알지만

    > 코딩으로 생성할려고 합니다.

    > OnCreate,OnActivate,OnShow에서 생성해봤지만

    > 메인폼이 Activate되지 않았다는 에러만 뜨네요.

    >

    > For i := 0 To MDIchildCount-1 Do

    > If UpperCase(MDIChildren[i].Name) = 'TfSIM_PARA' Then

    > Begin

    > MDIChildren[i].ActiveMDIChild;

    > Exit;

    > End;

    > Child_Form := TfSim_Para.Create(Application);

    > Child_Form.Show;

    > Create하는게 잘못됐나요?

    > 쉬운것같은데.. 무지하게 않되네요.

    > 고수님들의 해결책을 부탁드립니다.

  • Profile
    임지희 2000.10.31 20:24
    호야 wrote:

    > 메인폼을 띄우면서 차일드폼을 띄울려고합니다.

    > Project ->Options -> Auto Create Forms에다

    > 폼을 두면 자동으로 생기는건 알지만

    > 코딩으로 생성할려고 합니다.

    > OnCreate,OnActivate,OnShow에서 생성해봤지만

    > 메인폼이 Activate되지 않았다는 에러만 뜨네요.

    >

    > For i := 0 To MDIchildCount-1 Do

    > If UpperCase(MDIChildren[i].Name) = 'TfSIM_PARA' Then

    > Begin

    > MDIChildren[i].ActiveMDIChild;

    > Exit;

    > End;

    > Child_Form := TfSim_Para.Create(Application);

    > Child_Form.Show;

    > Create하는게 잘못됐나요?

    > 쉬운것같은데.. 무지하게 않되네요.

    > 고수님들의 해결책을 부탁드립니다.





    이렇게 함 보시져....

    > For i := 0 To MDIchildCount-1 Do

    > If UpperCase(MDIChildren[i].Name) = 'TfSIM_PARA' Then

    > Begin

    > MDIChildren[i].ActiveMDIChild;

    > Exit;

    > End;

    > fSim_Para := TfSim_Para.Create(Application);

    > fSim_Para.Show;

    이렇게 함 되지않나여~~~~







  • Profile
    호야 2000.10.31 20:48
    메인폼이 떠있지않은데 차일드폼을 띄울려고 하니까 에러가 뜨는거 아닙니까?

    어떤 이벤트때 차일드폼을 띄워야하나요?



    임지희 wrote:

    > 호야 wrote:

    > > 메인폼을 띄우면서 차일드폼을 띄울려고합니다.

    > > Project ->Options -> Auto Create Forms에다

    > > 폼을 두면 자동으로 생기는건 알지만

    > > 코딩으로 생성할려고 합니다.

    > > OnCreate,OnActivate,OnShow에서 생성해봤지만

    > > 메인폼이 Activate되지 않았다는 에러만 뜨네요.

    > >

    > > For i := 0 To MDIchildCount-1 Do

    > > If UpperCase(MDIChildren[i].Name) = 'TfSIM_PARA' Then

    > > Begin

    > > MDIChildren[i].ActiveMDIChild;

    > > Exit;

    > > End;

    > > Child_Form := TfSim_Para.Create(Application);

    > > Child_Form.Show;

    > > Create하는게 잘못됐나요?

    > > 쉬운것같은데.. 무지하게 않되네요.

    > > 고수님들의 해결책을 부탁드립니다.

    >

    >

    > 이렇게 함 보시져....

    > > For i := 0 To MDIchildCount-1 Do

    > > If UpperCase(MDIChildren[i].Name) = 'TfSIM_PARA' Then

    > > Begin

    > > MDIChildren[i].ActiveMDIChild;

    > > Exit;

    > > End;

    > > fSim_Para := TfSim_Para.Create(Application);

    > > fSim_Para.Show;

    > 이렇게 함 되지않나여~~~~

    >

    >

    >