Q&A

  • 패널 올려져 있는 폼 Client 영역 드래그로 이동
보통 그냥 폼있을 경우 클라이언트 영역드래그로 폼을 이동하려면..



private 에

procedure WMNCHitTest( var Msg : TMessage); message WM_NCHitTest;



선언하고..



procedure WMNCHitTest( var Msg : TMessage);

begin

inherited;

if Msg.Result = htClient Then Msg.Result := htCaption;

end;



이렇게 메세지메소드를 이용하면 되는데.. 폼에 패널을 올리고 Align := alClient



로 하면.. 폼에 메세지가 안가서 인지 몰라도.. 움직이지 않습니다.



그래서 강좌에 있는 서브클래싱을 해보려고 했는데.. 잘 돼지가 않네요..



아는 분 있으면.. 답변 부탁 드립니다.



그리고 메세지가 어떻게 보내지는지 설명도.. 부탁드립니다..



패널에 메세지가 가면.. 폼에도.. 당연히 가는 것으로 생각했느데..



안돼네요..

0  COMMENTS