gpt4 book ai didi

delphi如何防止MDI子被最大化?

转载 作者:行者123 更新时间:2023-12-03 15:34:51 29 4
gpt4 key购买 nike

在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子被最大化?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27471743/

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com