보통 그냥 폼있을 경우 클라이언트 영역드래그로 폼을 이동하려면..
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
로 하면.. 폼에 메세지가 안가서 인지 몰라도.. 움직이지 않습니다.
그래서 강좌에 있는 서브클래싱을 해보려고 했는데.. 잘 돼지가 않네요..
아는 분 있으면.. 답변 부탁 드립니다.
그리고 메세지가 어떻게 보내지는지 설명도.. 부탁드립니다..
패널에 메세지가 가면.. 폼에도.. 당연히 가는 것으로 생각했느데..
안돼네요..