TRichEdit右键滚屏代码我爱黑客基地,山西黑客,黑客联盟,信息安全,黑客联盟,木马编写,安全检测,软件破解,数据修复,机房维护,网站开发,黑客教程,黑客入门,动画教程,源码下载,书籍教程,黑客培训,刷QB,刷业务,QQ,IDC,域名主机

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

查看更多与TRichEdit右键滚屏代码相关内容