RichTextBox的右鍵功能

void _ _ fast call TMA inform::richedit mousemove(to object * Sender，
TShiftState Shift，int X，int Y)
{
if(right button flag)
{
if(right Y >(Y 8))
{
right Y = Y；
SendMessage(RichEdit->Handle，EM_SCROLL，SB_LINEDOWN，0)；
}
else if(right y handle，EM_SCROLL，SB_LINEUP，0)；
}
RichEditDragFlag = true；
}
}
///-
void _ _ fastcall TMA inform::RichEditMouseDown(to object * Sender，
TMouseButton Button，TShiftState Shift，int X，int Y)
{
if(Button = = m bright)
{
right Button flag = true；
Screen-> Cursor = crHandPoint；
right X = X；
right Y = Y；
set capture(RichEdit->Handle)；
}
else
right button flag = false；
}
///-
void _ _ fastcall TMA inform::RichEditMouseUp(to object * Sender，
TMouseButton Button，TShiftState Shift，int X，int Y)
{
if(right Button flag)
release capture()；
if(RichEditDragFlag)
{
right button flag = false；
RichEditDragFlag = false；
Screen-> Cursor = Cr default；
RichEdit-> popup menu = NULL；
}
else
{
RichEdit-> popup menu = RichEditPopupMenu；
}
}
// -

位律師廻複