김창훈 wrote:

> 안녕하세요...

> 어떻게 하다가 이제서야 이 사이트를 들러게 되었습니다.

> 델파이를 공부한지 이제 거의 6개월 정도가 되었는데요..

> 한가지 문제가 발생해서 그렇습니다.

> 윈도우가 자식윈도우를 생성시켰을때 부모윈도우가 움직이면 상대적으로

> 같이 자식윈도우가 따라다니게 할려면 어떻게 해야하는지요 너무 궁금합니다

> 답변 부탁합니다.

>





김창훈님 안녕하세요?



폼의 캡션을 클릭할때 메세지를 가로챌수

있는 프로시져를 하나 만드시구..



만약 Form1이 Form2를 끌고 다니려면..



private

procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;



...

...



//이런 비스무리한 형태가 되면 따라다니긴 할거 같습니다..



procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);

begin

inherited;

if M.Result = htClient then

M.Result := htCaption;

Form2.Top:= Form1.Height + Form1.Top;

Form2.Left:= Form1.Left;

end;



그런데 폼을 드래그시 이동될때 사각이 그려지며

같이 이동할 그자리에 있게 되므로 매끄럽지 못한

현상이 됩니다.

음.. 폼을 감추든지 다른 방안이 좀 모색되어야 하겠네요.

참고 되시길 바랍니다.



그럼.. 즐거운 프로그래밍~~

구창민 wrote:

> 김창훈 wrote:

> > 안녕하세요...

> > 어떻게 하다가 이제서야 이 사이트를 들러게 되었습니다.

> > 델파이를 공부한지 이제 거의 6개월 정도가 되었는데요..

> > 한가지 문제가 발생해서 그렇습니다.

> > 윈도우가 자식윈도우를 생성시켰을때 부모윈도우가 움직이면 상대적으로

> > 같이 자식윈도우가 따라다니게 할려면 어떻게 해야하는지요 너무 궁금합니다

> > 답변 부탁합니다.

> >

>

>

> 김창훈님 안녕하세요?

>

> 폼의 캡션을 클릭할때 메세지를 가로챌수

> 있는 프로시져를 하나 만드시구..

>

> 만약 Form1이 Form2를 끌고 다니려면..

>

> private

> procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;

>

> ...

> ...

>

> //이런 비스무리한 형태가 되면 따라다니긴 할거 같습니다..

>

> procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);

> begin

> inherited;

> if M.Result = htClient then

> M.Result := htCaption;

> Form2.Top:= Form1.Height + Form1.Top;

> Form2.Left:= Form1.Left;

> end;

>

> 그런데 폼을 드래그시 이동될때 사각이 그려지며

> 같이 이동할 그자리에 있게 되므로 매끄럽지 못한

> 현상이 됩니다.

> 음.. 폼을 감추든지 다른 방안이 좀 모색되어야 하겠네요.

> 참고 되시길 바랍니다.

>

> 그럼.. 즐거운 프로그래밍~~



고맙습니다. 구창민씨 ???

정말 고마워서 글을 올립니다.

어제 밤늦게 질문을 올렸는데 아침일찍 답변을 받아서 너무 고맙습니다.

아직 프로그램을 테스트 해보진 않았지만 너무 고마워서요...

그럼 좋은 하루되시고요... 다음에 또 질문이 생기면 연락을 드리겠습니다..