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(T...[ 查看全文 ]
