MDI폼에서 자식폼의 켑션을 제거 하고 판넬을 이용하여 켑션을 대신하려고 하는데 물론 부모폼도 캡션은 없습니다...
procedure Tfrm1.createparams(var params: tcreateparams);
begin
inherited createparams(params);
params.Style := params.Style - ws_caption;
end; //타이틀 바를 없앤다..
//판넬을 이용해서 타이틀바를 대신한다..
procedure Tfrm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
releasecapture;
sendmessage(frm1.Handle, WM_NCLbuttondown, htcaption,0);
end;
근데 여기서 에러가 나오네요...
Access violation Address~~~
이유가 먼지 모르겠어요...
아시는 분들 부탁드립니다..
그럼 오늘도 즐프 하세요...
대신 판넬을 타이틀바처럼 사용하시고 싶으신것 아닌가요?
물론 판넬에서 마우스로 드래그 하면 창이동도 하구요..
그렇다면 이 게시판에서 한번 검색해보세요..
그 소스 나와있을겁니다.
못찾으시면 제가 소스보내드리죠...