저도 이곳에서 자료를 많이 얻어가는 한사람으로서 도움이 되시길....



var DHandle : THandle;

DHandle := 0;



for k := MDIChildCount-1 downto 0 do

begin

//폼의 이름으로 비교.

if MDIChildren[k].Name = 'StayOnTop의 FormName' then begin

DHandle := MDIChildren[k].Handle;

SendMessage(DHandle,WM_CLOSE,0,0);

end;

end;



두번째 같은 경우는 chileform의 public 에 변수를 선언하고 쓰심 어떨런지...

질문의 내용과 맞는 답변인지는 모르겠네요.



onlyna wrote:

> 안녕하세요. 델파이 초보자입니다.

> MDI에서 MDIChild를 open하고 그위에 StayOnTop 으로 window를 open하였습니다.

> 그런데 이 StayOnTop window는 특정 MDIChild window가 Close되면 자동으로 Close

> 하고 싶습니다. 그러기 위해서 StayOnTop Window가 이미 Open되어 있으면 그냥 MDIChild window와 StayOnTop Window를 모두 close시키고 StayOnTop Window가

> Open되어 있지 않은 상태면 MDIChild Window만 close시켜야 합니다.

>

> 그래서 이 StayOnTop Window가 이미 Open되어 있는 지를 체크하는 방법을 알고 싶습니다.

>

> 그리고 MDIChild Window에서 StayOnTop을 Open할때 MDIChild에서 Parameter를

> 넘길수 있는 방법과 StayOnTop Window를 Close시 특정 Parameter value를 MDI

> Child Window에 Return하는 방법은 없습니까?

>

> 많은 답변 부탁드립니다.

>

그런데 StayOnTop style의 form은 MDIChild form이 아니므로 폼의 이름을 비교하는

부분에 걸리지 않습니다. 결국은 StayOnTop이 Open되어 있는 지를 체크가 안됩니다.



그리고 두번째 질문의 MDIChild Form의 Public에 변수를 선언하고 변수에 값을 넣고

StayOnTop window에서 그변수를 사용하는 데 undefine되어 있다고 합니다.

StayOnTop window에 당연히 MDIChild window를 참조하도록 하였습니다.



답변주세요.



한윤희 wrote:

> 저도 이곳에서 자료를 많이 얻어가는 한사람으로서 도움이 되시길....

>

> var DHandle : THandle;

> DHandle := 0;

>

> for k := MDIChildCount-1 downto 0 do

> begin

> //폼의 이름으로 비교.

> if MDIChildren[k].Name = 'StayOnTop의 FormName' then begin

> DHandle := MDIChildren[k].Handle;

> SendMessage(DHandle,WM_CLOSE,0,0);

> end;

> end;

>

> 두번째 같은 경우는 chileform의 public 에 변수를 선언하고 쓰심 어떨런지...

> 질문의 내용과 맞는 답변인지는 모르겠네요.

>

> onlyna wrote:

> > 안녕하세요. 델파이 초보자입니다.

> > MDI에서 MDIChild를 open하고 그위에 StayOnTop 으로 window를 open하였습니다.

> > 그런데 이 StayOnTop window는 특정 MDIChild window가 Close되면 자동으로 Close

> > 하고 싶습니다. 그러기 위해서 StayOnTop Window가 이미 Open되어 있으면 그냥 MDIChild window와 StayOnTop Window를 모두 close시키고 StayOnTop Window가

> > Open되어 있지 않은 상태면 MDIChild Window만 close시켜야 합니다.

> >

> > 그래서 이 StayOnTop Window가 이미 Open되어 있는 지를 체크하는 방법을 알고 싶습니다.

> >

> > 그리고 MDIChild Window에서 StayOnTop을 Open할때 MDIChild에서 Parameter를

> > 넘길수 있는 방법과 StayOnTop Window를 Close시 특정 Parameter value를 MDI

> > Child Window에 Return하는 방법은 없습니까?

> >

> > 많은 답변 부탁드립니다.

> >

그렇다면

Childform종료시에

/////////////

DHandle := findwindow('Tform2',nil); //핸들값리턴 Tform2 -> ClassName

SendMessage(DHandle,WM_close,0,0);

/////////////

이렇게 해 보세요.



두번째

예를들어

form1 : MainForm

form2 : StayOnTop form2 에 Public에 변수 선언

public

{ Public declarations }

sTest : String;

end;



form3 : ChildForm 이라고 할 때

//////////////////////////////////

form3 Unit에서는

Form2.sTest := '값';

////////////////////////////////

저는 이런식으로 사용했는데 잘 되던데요. 그럼 즐코딩하세요~~



onlyna wrote:

> 그런데 StayOnTop style의 form은 MDIChild form이 아니므로 폼의 이름을 비교하는

> 부분에 걸리지 않습니다. 결국은 StayOnTop이 Open되어 있는 지를 체크가 안됩니다.

>

> 그리고 두번째 질문의 MDIChild Form의 Public에 변수를 선언하고 변수에 값을 넣고

> StayOnTop window에서 그변수를 사용하는 데 undefine되어 있다고 합니다.

> StayOnTop window에 당연히 MDIChild window를 참조하도록 하였습니다.

>

> 답변주세요.

>

> 한윤희 wrote:

> > 저도 이곳에서 자료를 많이 얻어가는 한사람으로서 도움이 되시길....

> >

> > var DHandle : THandle;

> > DHandle := 0;

> >

> > for k := MDIChildCount-1 downto 0 do

> > begin

> > //폼의 이름으로 비교.

> > if MDIChildren[k].Name = 'StayOnTop의 FormName' then begin

> > DHandle := MDIChildren[k].Handle;

> > SendMessage(DHandle,WM_CLOSE,0,0);

> > end;

> > end;

> >

> > 두번째 같은 경우는 chileform의 public 에 변수를 선언하고 쓰심 어떨런지...

> > 질문의 내용과 맞는 답변인지는 모르겠네요.

> >

> > onlyna wrote:

> > > 안녕하세요. 델파이 초보자입니다.

> > > MDI에서 MDIChild를 open하고 그위에 StayOnTop 으로 window를 open하였습니다.

> > > 그런데 이 StayOnTop window는 특정 MDIChild window가 Close되면 자동으로 Close

> > > 하고 싶습니다. 그러기 위해서 StayOnTop Window가 이미 Open되어 있으면 그냥 MDIChild window와 StayOnTop Window를 모두 close시키고 StayOnTop Window가

> > > Open되어 있지 않은 상태면 MDIChild Window만 close시켜야 합니다.

> > >

> > > 그래서 이 StayOnTop Window가 이미 Open되어 있는 지를 체크하는 방법을 알고 싶습니다.

> > >

> > > 그리고 MDIChild Window에서 StayOnTop을 Open할때 MDIChild에서 Parameter를

> > > 넘길수 있는 방법과 StayOnTop Window를 Close시 특정 Parameter value를 MDI

> > > Child Window에 Return하는 방법은 없습니까?

> > >

> > > 많은 답변 부탁드립니다.

> > >