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;
　 }
}

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!