如何把Delphi里面inherited转换为BCB里面的相应语句?(特急)(200分)

  • 主题发起人 主题发起人 dinese
  • 开始时间 开始时间
D

dinese

Unregistered / Unconfirmed
GUEST, unregistred user!
有段程序,是Delphi的,要转换为BCB的文件,inherited该如何转换?大家帮个忙了
转换里面的语句如何写???
Delphi原型:
procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHITTEST;

procedure TForm1.WMNCHitTest(var Msg:TWMNCHitTest);
begin
....
....
inherited;
end;


BCB里面:
dinese.h:
void __fastcall WMNCHitTest(TWMNCHitTest &Msg);
begin
_MESSAGE_MAP
MESSAGE_HANDLER(WM_NCHITTEST,TWMNCHitTest,WMNCHitTest)
END_MESSAGE_MAP(TForm)

dinese.cpp
void __fastcall TForm1::WMNCHitTest(TWMNCHitTest &Msg)
{
// 请问里面的语句如何写????????????????,盼,谢谢了
}

 
dinese.cpp
void __fastcall TForm1::WMNCHitTest(TWMNCHitTest &Msg)
{
.........
.........
TForm::Dispatch(&Msg);
}
 

TForm::Dispatch要的是一个TMessage&类型的参数,TWMNCHitTest能转化为TMessage类型
吗? 还有其他的一些消息类型都能转化为TMessage而传递给Dispatch函数吗?
 
inherited::Dispatch(&Msg);
 
谢谢slong,wangxd的回答,
另外:
TForm::Dispatch要的是一个TMessage&类型的参数,TWMNCHitTest能转化为TMessage类型!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
629
import
I
后退
顶部