inherited 在 BCB 中如何表示

[shw014]

如以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

}

[shw014]

void __fastcall TForm1::OnSysClose(TMessage Message)
{
if (Message.wParam==SC_CLOSE)
Hide();
else
//inherited DELPHI 的这一句在BCB 中如何描述
;

}

[FrameSniper]

BCB帮助中没有吗？

[耙子]

不能等效翻译，你可以写成
this->Perform(xxxx) 来把消息传下去

[shw014]

TForm::Dispatch(&Message)