폼의 빈공간을 클릭할땐 포커스 변경이 일어나지 않습니다. 그리니까 CM_EXIT

메세지를 잡아챌수가 없죠. WM_NCHITTEST메세지를 서브클래싱해서 사용하시면

될것 같군요...



WM_NCHITTEST는 폼의 빈 공간을 클릭하거나 했을 때 마우스를 캡쳐하지 않고도

그 위치를 알 수 있거든요.. 그러니까 여기에서 마우스 좌표가 컴포넌트

외부라면 hide처리를 하시면 되겠네요.



초보맨 wrote:

> 컴포넌트를 제작하면서 제가 만든 컴포넌트가 포커스를 읽을때

> 폼에서 hide시키기 위해서

> procedure CMExit(var Message: TWMNoParams); message CM_EXIT;

> 와 같이 CM_EXIT 메세지를 Trap하여 procedure내에서 hide처리를 했습니다.

> 근데...이런 방식은 아주 잘 동작을 하지만..

> TspeedButton이나 아니면 폼상의 빈 영역에 마우스를 클릭을 하게되면

> CM_EXIT메세지가 발생하지 않아서 제 컴포넌트가 Hide되질 않습니다..

>

> TpopupMenu를 보면 popup Method로 화면에 보였다가도 마우스로 Tpopupmenu

> 의 영역밖에서 마우스를 클릭을 하게되면 자동으로 Tpopupmenu가 Hide처리가

> 아주 잘되더군요...

> 제 컴포넌트에서도 Tpopupmenu와 같이 동작을 하게 하고 싶은데...

> 어떻게 해야 하나요..??

> 고수님의 답변좀 부탁합니다..

최용일님의 답변에 감사드립니다...

그런데 제가 델파이에 관란 지식이 좀 짧은 편이라서요 ^^

염치 없지만....WM_NCHITTEST 메세지를 서브클래싱해서 사용하라고 알려주셨는데..

그것을 어떻게 하는건지 좀 더 구체적으로 가르켜 주시면 감사하겟습니다..



그리고 Help를 찾아보니 WM_NCHITTEST는 마우스가 움직이거나 클릭할때 모두

발생되는것 같은데..이것의 구분은 어떻게 하나요??

죄송합니다...몰라도 너무 몰라서요...^^



최용일 wrote:

> 폼의 빈공간을 클릭할땐 포커스 변경이 일어나지 않습니다. 그리니까 CM_EXIT

> 메세지를 잡아챌수가 없죠. WM_NCHITTEST메세지를 서브클래싱해서 사용하시면

> 될것 같군요...

>

> WM_NCHITTEST는 폼의 빈 공간을 클릭하거나 했을 때 마우스를 캡쳐하지 않고도

> 그 위치를 알 수 있거든요.. 그러니까 여기에서 마우스 좌표가 컴포넌트

> 외부라면 hide처리를 하시면 되겠네요.

>

> 초보맨 wrote:

> > 컴포넌트를 제작하면서 제가 만든 컴포넌트가 포커스를 읽을때

> > 폼에서 hide시키기 위해서

> > procedure CMExit(var Message: TWMNoParams); message CM_EXIT;

> > 와 같이 CM_EXIT 메세지를 Trap하여 procedure내에서 hide처리를 했습니다.

> > 근데...이런 방식은 아주 잘 동작을 하지만..

> > TspeedButton이나 아니면 폼상의 빈 영역에 마우스를 클릭을 하게되면

> > CM_EXIT메세지가 발생하지 않아서 제 컴포넌트가 Hide되질 않습니다..

> >

> > TpopupMenu를 보면 popup Method로 화면에 보였다가도 마우스로 Tpopupmenu

> > 의 영역밖에서 마우스를 클릭을 하게되면 자동으로 Tpopupmenu가 Hide처리가

> > 아주 잘되더군요...

> > 제 컴포넌트에서도 Tpopupmenu와 같이 동작을 하게 하고 싶은데...

> > 어떻게 해야 하나요..??

> > 고수님의 답변좀 부탁합니다..

11207번에 제가 쓴 예제가 있습니다. 그것을 참조해 보세요.



이미지를 드래그했을때 캡션바를 드래그한 것처럼 속이는 것인데



도움이 될것 같군요... 해보시고 안되시면 질문주세요...



초보맨 wrote:

> 최용일님의 답변에 감사드립니다...

> 그런데 제가 델파이에 관란 지식이 좀 짧은 편이라서요 ^^

> 염치 없지만....WM_NCHITTEST 메세지를 서브클래싱해서 사용하라고 알려주셨는데..

> 그것을 어떻게 하는건지 좀 더 구체적으로 가르켜 주시면 감사하겟습니다..

>

> 그리고 Help를 찾아보니 WM_NCHITTEST는 마우스가 움직이거나 클릭할때 모두

> 발생되는것 같은데..이것의 구분은 어떻게 하나요??

> 죄송합니다...몰라도 너무 몰라서요...^^

>

> 최용일 wrote:

> > 폼의 빈공간을 클릭할땐 포커스 변경이 일어나지 않습니다. 그리니까 CM_EXIT

> > 메세지를 잡아챌수가 없죠. WM_NCHITTEST메세지를 서브클래싱해서 사용하시면

> > 될것 같군요...

> >

> > WM_NCHITTEST는 폼의 빈 공간을 클릭하거나 했을 때 마우스를 캡쳐하지 않고도

> > 그 위치를 알 수 있거든요.. 그러니까 여기에서 마우스 좌표가 컴포넌트

> > 외부라면 hide처리를 하시면 되겠네요.

> >

> > 초보맨 wrote:

> > > 컴포넌트를 제작하면서 제가 만든 컴포넌트가 포커스를 읽을때

> > > 폼에서 hide시키기 위해서

> > > procedure CMExit(var Message: TWMNoParams); message CM_EXIT;

> > > 와 같이 CM_EXIT 메세지를 Trap하여 procedure내에서 hide처리를 했습니다.

> > > 근데...이런 방식은 아주 잘 동작을 하지만..

> > > TspeedButton이나 아니면 폼상의 빈 영역에 마우스를 클릭을 하게되면

> > > CM_EXIT메세지가 발생하지 않아서 제 컴포넌트가 Hide되질 않습니다..

> > >

> > > TpopupMenu를 보면 popup Method로 화면에 보였다가도 마우스로 Tpopupmenu

> > > 의 영역밖에서 마우스를 클릭을 하게되면 자동으로 Tpopupmenu가 Hide처리가

> > > 아주 잘되더군요...

> > > 제 컴포넌트에서도 Tpopupmenu와 같이 동작을 하게 하고 싶은데...

> > > 어떻게 해야 하나요..??

> > > 고수님의 답변좀 부탁합니다..

용일님의 예제를 보고

procedure TEDBCustomCombo.WMNCHitTest(var Msg: TWMNCHitTest);

var

P: TPoint;

ControlRect: TRect;

begin

// 마우스 좌표를 구합니다.

P := Point(Msg.XPos, Msg.YPos);

// 마우스 좌표를 클라이언트 좌표로 바꿉니다.

P := ScreenToClient(P);

ControlRect := Rect(Left, Top, left +Width, top+ Height);

// 마우스 포인터가 CTRL 내에 있다면

if not PtInRect(ControlRect, P) then

// 마우스의 왼쪽 버턴이 눌려지면

if GetAsyncKeyState(VK_LBUTTON) > 0 then

showMessage('a')

// Msg.Result := htcaption // 캡션바에서 일어난 일인 것처럼 폼을 속인다.

else

inherited;

end;

위와 같이 코딩을 했습니다만... 다른곳에 클릭을 했을때마다 메세지가

발생을 하지 않더군요......

다른 방법은 없는건가요..??

그런데...TpopupMenu는 어떻게 구현이 가능했는지 무지 궁금하군요...



최용일 wrote:

> 11207번에 제가 쓴 예제가 있습니다. 그것을 참조해 보세요.

>

> 이미지를 드래그했을때 캡션바를 드래그한 것처럼 속이는 것인데

>

> 도움이 될것 같군요... 해보시고 안되시면 질문주세요...

>

> 초보맨 wrote:

> > 최용일님의 답변에 감사드립니다...

> > 그런데 제가 델파이에 관란 지식이 좀 짧은 편이라서요 ^^

> > 염치 없지만....WM_NCHITTEST 메세지를 서브클래싱해서 사용하라고 알려주셨는데..

> > 그것을 어떻게 하는건지 좀 더 구체적으로 가르켜 주시면 감사하겟습니다..

> >

> > 그리고 Help를 찾아보니 WM_NCHITTEST는 마우스가 움직이거나 클릭할때 모두

> > 발생되는것 같은데..이것의 구분은 어떻게 하나요??

> > 죄송합니다...몰라도 너무 몰라서요...^^

> >

> > 최용일 wrote:

> > > 폼의 빈공간을 클릭할땐 포커스 변경이 일어나지 않습니다. 그리니까 CM_EXIT

> > > 메세지를 잡아챌수가 없죠. WM_NCHITTEST메세지를 서브클래싱해서 사용하시면

> > > 될것 같군요...

> > >

> > > WM_NCHITTEST는 폼의 빈 공간을 클릭하거나 했을 때 마우스를 캡쳐하지 않고도

> > > 그 위치를 알 수 있거든요.. 그러니까 여기에서 마우스 좌표가 컴포넌트

> > > 외부라면 hide처리를 하시면 되겠네요.

> > >

> > > 초보맨 wrote:

> > > > 컴포넌트를 제작하면서 제가 만든 컴포넌트가 포커스를 읽을때

> > > > 폼에서 hide시키기 위해서

> > > > procedure CMExit(var Message: TWMNoParams); message CM_EXIT;

> > > > 와 같이 CM_EXIT 메세지를 Trap하여 procedure내에서 hide처리를 했습니다.

> > > > 근데...이런 방식은 아주 잘 동작을 하지만..

> > > > TspeedButton이나 아니면 폼상의 빈 영역에 마우스를 클릭을 하게되면

> > > > CM_EXIT메세지가 발생하지 않아서 제 컴포넌트가 Hide되질 않습니다..

> > > >

> > > > TpopupMenu를 보면 popup Method로 화면에 보였다가도 마우스로 Tpopupmenu

> > > > 의 영역밖에서 마우스를 클릭을 하게되면 자동으로 Tpopupmenu가 Hide처리가

> > > > 아주 잘되더군요...

> > > > 제 컴포넌트에서도 Tpopupmenu와 같이 동작을 하게 하고 싶은데...

> > > > 어떻게 해야 하나요..??

> > > > 고수님의 답변좀 부탁합니다..