Q&A

  • : 특정 콤포
안녕하세요..



폼상에 버튼을 3 개 두었읍니다.

그 중 1 개를 누르면 WMNCCHitTest 라는 메시지 이벤트를 발생 시키려고 하는데요

어떻게 메시지를 보내야하나요.



참고로, 아래는 제가 테스트 하려는 부분입니다.

버튼#1 을 누르면 아래의 부분이 기동하게 하려는 거거든요...

고수님의 조언을 부탁 드려요.





//---------------------------------------------------------------

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



procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);

begin

inherited;



if M.Result =htclient then

M.result := htcaption;

end;





1  COMMENTS
  • Profile
    쭉쭉빵빵 2001.03.31 15:29
    LRESULT SendMessage(



    HWND hWnd, // handle of destination window

    UINT Msg, // message to send

    WPARAM wParam, // first message parameter

    LPARAM lParam // second message parameter

    );



    wParam , lParam 에 값 실어서 보내요.

    없을때는 밑에것과 같이 0, 0 처럼 하시고..

    SendMessage(TForm1.Handle, WM_NCHITTEST, 0,0);





    델초보 wrote:

    > 안녕하세요..

    >

    > 폼상에 버튼을 3 개 두었읍니다.

    > 그 중 1 개를 누르면 WMNCCHitTest 라는 메시지 이벤트를 발생 시키려고 하는데요

    > 어떻게 메시지를 보내야하나요.

    >

    > 참고로, 아래는 제가 테스트 하려는 부분입니다.

    > 버튼#1 을 누르면 아래의 부분이 기동하게 하려는 거거든요...

    > 고수님의 조언을 부탁 드려요.

    >

    >

    > //---------------------------------------------------------------

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

    >

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

    > begin

    > inherited;

    >

    > if M.Result =htclient then

    > M.result := htcaption;

    > end;

    >

    >