Rich TextBox的右键功能

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

上一篇： 控制INI文件的几种方法
下一篇： 获取Windows临时路径

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!