RX控件 RxDBRichEdit 菜单项的设置

二十年前的代码，重新拾起，维护软件对Rx一组控件中的，RxRichEdit和RxDBRichEdit，设置菜单项，不能显示。搞了一阵，记得使用时，可以用的呀。

搜索自己的原始代码：

1、除了加入在控件RxRichEdit和RxDBRichEdit中加入PopupMenu3外；

2、还是在RxRichEdit和RxDBRichEdit控件的MouseDown事件中，加入下述代码：

procedure TShowRich_0_Frm.RichEdit1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var ptNow,ptCli:TPoint;
begin
  GetCursorPos(ptNow);                   // 获取鼠标在屏幕的位置
  ptCli:=Self.ScreenToClient(ptNow);     // 把屏幕位置转换为客户位置
  if ssRight in Shift then PopupMenu3.Popup(ptNow.X,ptNow.Y);
end;

这样，就能正常使用右键菜单了。

在此，记录在案，以便方便查找。老代码都忘了。