这个该死的问题，困绕了我好几天，终于千试万试，试出来了一种方法。
procedure TExplorer.WMMax(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
begin
//什么都不用写。
end;
procedure TExplorer_Frm.WmSize(var msg: TWMSIZE);
begin
if msg.SizeType = SIZE_MAXIMIZED then
msg.SizeType := SIZENORMAL;
inherited;
end;
这就是我们想要的。
