怎样在最小化一个窗体时，最小化整个应用程序?

Question

private
  procedureWMSysCommand(var Message : TWMSysCommand); message WM_SYSCOMMAND ;procedure TSomeForm.WMSysCommand(var Message : TWMSysCommand) ;
begin
  if Message.CmdType = SC_MINIMIZE then
    application.Minimize;
  inherited ;
end ;

Answer 1

我试了试，这样可以
private
  procedureWMSysCommand(var Message : TWMSysCommand); message WM_SYSCOMMAND ;procedure TSomeForm.WMSysCommand(var Message : TWMSysCommand) ;
begin
  if Message.CmdType = SC_MINIMIZE then
    application.Minimize
  else
    inherited ;
end ;