BCB中,我在重载Scroll的WndProc()时,
程序运行一段时间后,出现StackOverFlow的错误..
这是怎么回事 该如何解决:
Code如下:
TWndMethod OldSrcWndProc;
void __fastcall NewSrcWndProc(TMessage &Message);
TWndMethod OldDstWndProc;
void __fastcall NewDstWndProc(TMessage &Message);
//------------------------------------------------------------
__fastcall TForm9::TForm9(TComponent* Owner)
: TForm(Owner)
{
OldSrcWndProc=tntsrc->WindowProc;
tntsrc->WindowProc=NewSrcWndProc;
OldDstWndProc=tntdest->WindowProc;
tntdest->WindowProc=NewDstWndProc;
}
//-----------------------------------------------------
void __fastcall TForm9::NewSrcWndProc(TMessage &Message)
{
//unsigned int ff=Message.Msg;
OldSrcWndProc(Message);
//tntsrc->Perform(Message.Msg,Message.WParam,Message.LParam);
if(Message.Msg==WM_VSCROLL)
{
//ShowMessage("ddd ");
int ivPos1=GetScrollPos(tntsrc->Handle,SB_VERT);
int ivPos2=GetScrollPos(tntdest->Handle,SB_VERT);
if(ivPos1!=ivPos2)
{
tntdest->Perform(Message.Msg,Message.WParam,Message.LParam);
//tntdest->Perform(
}
}
if(Message.Msg==WM_HSCROLL)
{
int ihPos1=GetScrollPos(tntsrc->Handle,SB_HORZ);
int ihPos2=GetScrollPos(tntdest->Handle,SB_HORZ);
if(ihPos1!=ihPos2)
{
tntdest->Perform(Message.Msg,Message.WParam,Message.LParam);
}
}
}
//-----------------------------------------------------------------------------
void __fastcall TForm9::NewDstWndProc(TMessage &Message)
{
OldDstWndProc(Message);
//tntdest->Perform(Message.Msg,Message.WParam,Message.LParam);
if(Message.Msg==WM_VSCROLL)
{
int ivPos1=GetScrollPos(tntsrc->Handle,SB_VERT);
int ivPos2=GetScrollPos(tntdest->Handle,SB_VERT);
if(ivPos1!=ivPos2)
{
tntsrc->Perform(Message.Msg,Message.WParam,Message.LParam);
}
}
if(Message.Msg==WM_HSCROLL)
{
int ihPos1=GetScrollPos(tntsrc->Handle,SB_HORZ);
int ihPos2=GetScrollPos(tntdest->Handle,SB_HORZ);
if(ihPos1!=ihPos2)
{
tntsrc->Perform(Message.Msg,Message.WParam,Message.LParam);
}
}
}
//

------
Jordan.Jeng