在RxRichEdit不支持右键弹出菜单? ( 积分: 50 )

  • 主题发起人 主题发起人 mumu
  • 开始时间 开始时间
M

mumu

Unregistered / Unconfirmed
GUEST, unregistred user!
  无论是设计期间还是运行期间,RxRichEdit.PopupMenu := MyPopupMenu;都无法弹出菜单[:(]
  以前别人回答过
http://www.delphibbs.com/delphibbs/dispq.asp?lid=710864
  但我的程序就是在Form上分别放一个Rxrichedit、MyPopMenu,然后设置RxRichEdit.PopupMenu := MyPopupMenu。程序中没有任何限制。
  我的是Windxp+Delphi6,谁有做过RxRichEdit右键菜单的赶紧出来谈谈经验吧!
 
  无论是设计期间还是运行期间,RxRichEdit.PopupMenu := MyPopupMenu;都无法弹出菜单[:(]
  以前别人回答过
http://www.delphibbs.com/delphibbs/dispq.asp?lid=710864
  但我的程序就是在Form上分别放一个Rxrichedit、MyPopMenu,然后设置RxRichEdit.PopupMenu := MyPopupMenu。程序中没有任何限制。
  我的是Windxp+Delphi6,谁有做过RxRichEdit右键菜单的赶紧出来谈谈经验吧!
 
procedure TForm1.RxRichEdit1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var p : TPoint;
begin
if Button = mbRight then
begin
P := RxRichEdit1.ClienttoScreen(Point(x,y));
PopupMenu1.Popup(p.x,p.y);
end;
end;
 
非常感谢loco。
不过还得请教loco大虾,为什么RXRICHEDIT不直接支持右键菜单呢?
BTW:分数马上就发。
 
只是在XP和2000下不行,98就可以。RX不是带有一个自己的POPMENU控件,用它就可以了。
 
感谢各位!不过我用RX的POPMENU好像不行啊:(
 
后退
顶部