如以DELPHI下程序
procedure a(var msg:TWMSYSCOMMAND);message WM_SYSCOMMAND;if msg.cmdtype and $FFF0 =SC_CLOSE then
  hide
else
 inherited
end;在BCB中可以这样用
在Form 类定义中
void __fastcall OnSysClose(TMessage Message);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage,OnSysClose) 
END_MESSAGE_MAP(TForm) 在主程序中
void __fastcall TForm1::OnSysClose(TMessage Message)
{
if (Message.wParam==SC_CLOSE())
  Hide();
else
  //inherited   DELPHI 的这一句在BCB 中如何描述
endif}