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)
{
// 请问里面的语句如何写????????????????,盼,谢谢了
}
转换里面的语句如何写???
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)
{
// 请问里面的语句如何写????????????????,盼,谢谢了
}