delphi如何防止MDI孩子最大化？

概述在delphi mdi应用程序中,当使用按下最大化按钮时,需要在Mainform客户区域中显示带有标题的子窗口 Win32Check(Windows.GetClientRect(ClientHandle, aTRect));MDIChild1.BoundsRect := aTRect; 功能. 那么,当按下最大化按钮时,我们如何防止MDI子项被最大化？ 我试过用它来做 procedure TC 在delphi mdi应用程序中,当使用按下最大化按钮时,需要在Mainform客户区域中显示带有标题的子窗口

Win32Check(windows.GetClIEntRect(ClIEntHandle,aTRect));MDIChild1.BoundsRect := aTRect;

功能.

那么,当按下最大化按钮时,我们如何防止MDI子项被最大化？

我试过用它来做

procedure TChildText.WMSYSCOMMAND(var Message: TWMSYSCOMMAND);var  aTRect:TRect;begin  inherited;  case message.CmdType of    SC_MAXIMIZE:       begin        Win32Check(windows.GetClIEntRect(MainForm.ClIEntHandle,aTRect));        BoundsRect := aTRect;      end;  end;end;

没有结果.

解决方法

procedure TChildText.WMSYSCOMMAND(var Message: TWMSYSCOMMAND);var  aTRect:TRect;begin  if message.CmdType = SC_MAXIMIZE then  begin    Win32Check(windows.GetClIEntRect(MainForm.ClIEntHandle,aTRect));    BoundsRect := aTRect;    message.CmdType := SC_RESTORE;  end;  inherited;end;

总结

以上是内存溢出为你收集整理的delphi如何防止MDI孩子最大化？全部内容，希望文章能够帮你解决delphi如何防止MDI孩子最大化？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。