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; } } //--------...
[ 查看全文 ]