안녕하세요..
폼상에 버튼을 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;
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;
>
>