如何最大化仅适合客户区而不适合整个父窗口的子窗口?我不希望子窗口在主菜单或父窗口的其他控件下消失。
我有这个代码
procedure WMSIZE(var Msg: TMessage); message WM_SIZE;
procedure TForm2.WMSIZE(var Msg: TMessage);
begin
inherited;
if Msg.WParam = SIZE_MAXIMIZED then
begin
ShowWindow(Handle, SW_RESTORE);
Left := 0;
Top := 0;
Width := Form1.ClientWidth - 4; // The BORDER
Height := Form1.ClientHeight - 4;
end;
end;
但这还不够好。窗口实际上没有最大化。如果要更改SW_RESTORE
为,SW_MAXIMIZE
则子窗口看起来有问题。