TRichEdit右键滚屏代码

void __fastcall TMainForm::RichEditMouseMove(TObject *Sender,TShiftState Shift, int X, int Y)
{
if(RightButtonFlag)
　 {
　 if(RightY>(Y+8))
　　 {
　　 RightY=Y;
　　 SendMessage(RichEdit->Handle, EM_SCROLL, SB_LINEDOWN, 0);
　　 }
　 else if(RightY<(Y-8))
　　 {
　　 RightY=Y;
　　 SendMessage(RichEdit->Handle, EM_SCROLL, SB_LINEUP, 0);
　　 }
　 RichEditDragFlag=true;
　 }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::RichEditMouseDown(TObject *Sender,TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button==mbRight)
　 {
　 RightButtonFlag=true;
　 Screen->Cursor=crHandPoint;
　 RightX=X;
　 RightY=Y;
　 SetCapture(RichEdit->Handle);
　 }
else
　 RightButtonFlag=false;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::RichEditMouseUp(TObject *Sender,TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(RightButtonFlag)
　 ReleaseCapture();
if(RichEditDragFlag)
　 {
　 RightButtonFlag=false;
　 RichEditDragFlag=false;
　 Screen->Cursor=crDefault;
　 RichEdit->PopupMenu=NULL;
　 }
else
　 {
　 RichEdit->PopupMenu=RichEditPopupMenu;
　 }
}