RichEdit选中文字右键菜单的实现

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

vPoint: TPoint;

begin

if Button <> mbRight then Exit;

vPoint := Point(X, Y);

X := SendMessage(RichEdit1.Handle, EM_CHARFROMPOS,0,

Integer(@vPoint)) and $0000FFFF;// 得到鼠标点击字符位置

if (X >= RichEdit1.SelStart) and

(X <= RichEdit1.SelStart + RichEdit1.SelLength) then

ShowMessage(RichEdit1.SelText);

end;