如何使mdi子窗体始终处于最大化

[creativecn]

mdi子窗体设置其widowstate属性为wsMaximized,但一点击最大化按钮就变小了,我不想让mdi子窗体变小,让其始终处于最大化状态,如何实现?谢谢

[dulei115]

最简单的办法，设置BorderIcons属性，将mdi子窗体的那几个按钮全部去掉

[knife_s]

OnResize中写代码

[dulei115]

[Quote=引用 2 楼 knife_s 的回复:]
OnResize中写代码
[/Quote]
最小化的时候不会触发OnResize事件

[所得寺内]

DefMDIChildProc

[Ascn]

怎么会？我一直都是这样设置子窗体属性就能解决的（一个是设置为MDI子窗体，一个是设置其状态为最大化，这样就已经OK了呀）

[hsmserver]

const
NOSIZETAG = -10000;
procedure WMSize(var message: TWMSize); message WM_SIZE;


procedure frmMDI.WMSize(var message: TWMSize);
var
H:HWND;
begin
if Tag <> NOSIZETAG then
begin
if (message.SizeType = SIZE_MINIMIZED) or (message.SizeType = SIZE_RESTORED) then
begin
H := SendMessage(MainForm.ClientHandle, WM_MDIGETACTIVE, 0, 0);
SHOWWINDOW(Handle, SW_MAXIMIZE);
SendMessage(MainForm.ClientHandle, WM_MDIACTIVATE, Word(H), 0);
end
else
inherited;
end;
end;

[creativecn]

1楼的做法不对,我试过,显示时都不是最大化了.
6楼的看不懂.

[starluck]

procedure WMSize(var Message: TWMSize); message WM_SIZE;


procedure TfrmNav.WMSize(var Message: TWMSize);
begin
inherited;

if message.SizeType in [0..9] then
begin
frmNav.WindowState := wsMaximized;
end;

end;

[starluck]

把我这段代码里的 frmNAV换成你的窗体名称。上面是过程的定义，下面是实现。

[leeoky2008]

同意1楼的。

[ttwandln]

MDI FORM
1,windowstate:=wsmaximized;
2,borderlcons中的
biminimize:=false;
bimaximize:=false;