안녕하세요 하얀까마귀 입니다.

밑에 다른두분의 답변을 읽어 보았는데.. 저는 조금 다른 생각이어서 몇자 적습니다.

Form이라해도 이건 하나의 클래스일 뿐이거든요?? 그래서 생성이 되어 있고 이게 메인폼에서 생성된거 겠죠? 그럼 그냥 찾으시면 됩니다.

SubForm := FindComponent('Form2'); 하시면 됩니다. 들어가는건 콤포넌트 이름 즉 폼명이구요 만약에 메인폼에서 찾으시는게 아니라면 SubForm := FindGlobalComponent('Form2')하시면 됩니다

리턴값은 Tcomponent이고 못찾으면 nil을 리턴합니다.

그러니까 nil일때 생성하시구 값이 있으면 (SubForm as TForm)하셔서 뭐 show를 해주시든지 하시면 되겠죠..??

FindComponent('Form2');

FindGlobalComponent('Form2');

그럼 즐거운 시간 되세요

하얀까마귀





초보자 wrote:

> 안녕하십니까? 항상 빠른 답변에 감사드립니다.

>

> 저는 MDI 형태에서 모든 화면이 Child로 호출이 되지만

> 한 화면에 대해서는 별개의 Form형태로 호출을 하여야 합니다.

>

> 그런데, 계속 Form를 호출하면 메모리가 낭비되기때문에

> 현재 해당 Form이 활성화 되었는데 뒤로 간 경우에는

> bringtoFront로 설정을 주고 활성화가 되지 않은 경우에는

> CreateForm을 하고 싶습니다.

>

> MDI내에서는

> for li_temp := 0 to MDIChildCount - 1 do

> if MDIChildren[li_temp] is Tform1 then ....

> 으로 해당 윈도우를 찾았지만

>

> MDI에서 NormalForm을 SHow를 통하여 호출하는 경우에 대해서는

> 어떻게 윈도우의 활성여부를 확인할 수 있는지요?

>

이러면 어떠하실지...



uCommon 이라는 유닛에 이렇게 각 폼에 대한 활성화 여부를

할 수 있는 레코드를 선언하고.



Type

TCurrentLoadForm = record

SetFormPrivilege : boolean;

BasicInformation : boolean;

ViewPersonnel : boolean;

ImpExpPersonnel : boolean;

ApprovePersonnel : boolean;

ResignedWorker : boolean;

end;

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



메인 유닛에서

uses uCommon;



procedure TfrmMain.mnuEdit_Direct_WorkerClick(Sender: TObject);

begin

if not CurrentForm.Direct_Worker then

frmDirect_Worker := TfrmDirect_Worker.Create( Self );



frmDirect_Worker.Show;

end;

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



폼이 생성될 때 : CurrentForm.Direct_Worker := True;

폼이 종료될 때 : CurrentForm.Direct_Worker := False;



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



이렇게 해서 해당 폼이 오픈되어 있다면 CurrentForm.Direct_Worker := True;

와 같이 값이 설정되어 있으면 다시 폼을 오픈하는 명령을 주어도



// 폼이 오픈되어 있지 않으면 수행한다.

if not CurrentForm.Direct_Worker then

frmDirect_Worker := TfrmDirect_Worker.Create( Self );



frmDirect_Worker.Show;



폼을 새로 만들지 않고 보여주지 않을까 합니다...



행복하세요....





- 어설푼 이 입니다 -





초보자 wrote:

> 안녕하십니까? 항상 빠른 답변에 감사드립니다.

>

> 저는 MDI 형태에서 모든 화면이 Child로 호출이 되지만

> 한 화면에 대해서는 별개의 Form형태로 호출을 하여야 합니다.

>

> 그런데, 계속 Form를 호출하면 메모리가 낭비되기때문에

> 현재 해당 Form이 활성화 되었는데 뒤로 간 경우에는

> bringtoFront로 설정을 주고 활성화가 되지 않은 경우에는

> CreateForm을 하고 싶습니다.

>

> MDI내에서는

> for li_temp := 0 to MDIChildCount - 1 do

> if MDIChildren[li_temp] is Tform1 then ....

> 으로 해당 윈도우를 찾았지만

>

> MDI에서 NormalForm을 SHow를 통하여 호출하는 경우에 대해서는

> 어떻게 윈도우의 활성여부를 확인할 수 있는지요?

>

제가 질문을 이해했다면......



이런 방법이 있습니다.



child form의 close event에 아래와 같이 코딩합니다.



formname := nil;

action := cafree;



nil을 할당해준후...(설명이 이상하군.)



차일드폼이 발생하는 시점에 아래와 같이 코딩합니다.



if formname = nil then

application.createform(Tforname,formname)

else

formname.windowstate := wsnormal;



이러면 동일한 차일드폼이 생성되지 않습니다.





초보자 wrote:

> 안녕하십니까? 항상 빠른 답변에 감사드립니다.

>

> 저는 MDI 형태에서 모든 화면이 Child로 호출이 되지만

> 한 화면에 대해서는 별개의 Form형태로 호출을 하여야 합니다.

>

> 그런데, 계속 Form를 호출하면 메모리가 낭비되기때문에

> 현재 해당 Form이 활성화 되었는데 뒤로 간 경우에는

> bringtoFront로 설정을 주고 활성화가 되지 않은 경우에는

> CreateForm을 하고 싶습니다.

>

> MDI내에서는

> for li_temp := 0 to MDIChildCount - 1 do

> if MDIChildren[li_temp] is Tform1 then ....

> 으로 해당 윈도우를 찾았지만

>

> MDI에서 NormalForm을 SHow를 통하여 호출하는 경우에 대해서는

> 어떻게 윈도우의 활성여부를 확인할 수 있는지요?

>