메인폼을 띄우면서 차일드폼을 띄울려고합니다.
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하는게 잘못됐나요?
쉬운것같은데.. 무지하게 않되네요.
고수님들의 해결책을 부탁드립니다.
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하는게 잘못됐나요?
> 쉬운것같은데.. 무지하게 않되네요.
> 고수님들의 해결책을 부탁드립니다.