限制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;
阅读更多
个人分类: delphi
上一篇修改用户定义的数据类型
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭