마우스 가운데 버튼에 최대화 명령을 할당해서 쓰고 있읍니다.
폼의 최대화 버튼 속성을 비활성화 해도 이 버튼이 먹습니다.
비주얼 베이직으로 하면 안먹습니다.
constraints 속성에서 최대 크기를 제한하면 위의 버튼을 눌렀을 때 폼이 왼쪽 위 구석으로 옮겨지면서 크기가 약간 달라집니다.
가령 원래 크기가 가로 500이었다면 왼쪽 위로 가면서 503 정도로 약간 커집니다.
마우스로도 최대화를 할 수 없게 하는 방법을 아시는 분 혹시 계시면 도움 좀 부탁 드립니다.
WM_SYSCOMMAND메세지를 핸들링해서 최대화를 막으세요...
<!--CodeS-->
type
TForm1 = class(TForm)
......
procedure WMSYSCOMMAND(var Message: TWMSysCommand); message WM_SYSCOMMAND;
end;
implementation
procedure TForm1.WMSYSCOMMAND(var Message: TWMSysCommand);
begin
if Message.CmdType = SC_MAXIMIZE then
Message.Result := 0
else
inherited;
end;
<!--CodeE-->
^^ 항상 즐코하세요...