只要在MDI窗体中响应对应的消息,就RESTORE不了。在MDI子窗体中,声明 private .... procedure WMSysCommand(var Msg:TWMSYSCOMMAND);message WM_SYSCOMMAND;procedure TForm2.WMSysCommand(var Msg:TWMSysCommand); begin if not((Msg.CmdType =SC_RESTORE) or (Msg.CmdType =SC_MINIMIZE)) then inherited; end;
private
....
procedure WMSysCommand(var Msg:TWMSYSCOMMAND);message WM_SYSCOMMAND;procedure TForm2.WMSysCommand(var Msg:TWMSysCommand);
begin
if not((Msg.CmdType =SC_RESTORE)
or (Msg.CmdType =SC_MINIMIZE)) then
inherited;
end;