在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;
没有结果。