限制MDI子窗体的最大化后,没有自己的标题栏。

这个该死的问题,困绕了我好几天,终于千试万试,试出来了一种方法。

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;

这就是我们想要的。

你可能感兴趣的:(DI)