RxRichEdit右键菜单?(50分)

W

wind98

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #1

RxRichEdit好象不支持Windows常见的:撤消、剪切、复制、贴粘、删除、全选 右键弹出菜单，
我自己做了一个，把RxRichEdit.PopupMenu := MyPopupMenu;运行....菜单根本就弹不出来???：（
真是奇怪啊...看Rx的Demo,和我做的一样，也是自已做个菜单然后指向，可是我运行也弹不出菜单?
我的是Wind2000+Delphi5，谁有做过RxRichEdit右键菜单的赶紧出来谈谈经验吧！[]

 

J

jbas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #2

procedure Tform.reMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
xy:tpoint;
begin
if button=mbright then
begin
getcursorpos(xy);
menu.Popup(xy.x,xy.Y);
end;
end;

try it!!!

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #3

procedure TForm1.RxRichEdit1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
rxRichEdit1.PopupMenu :=PopupMenu1;
end;

 

W

wind98

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #4

to jbas,卷起N堆雪...:
毛主席说的好：没有实践就没有发言权！
希望你们以后回答问题能够自已先实践一下能用了再回答，可以节省好多人的时间，好吗？
这次就算了，我帮你们实践了，不行！！！
感谢你们的关注！
有答有分！

 

J

jbas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #5

你说哪里不行呀，我是从我程序中拷贝下来的。只是改了几个名字。你能否说具体点，哪里错
了。
下面一点都没变的。
procedure Tfmdiary.reMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
xy:tpoint;
begin
if button=mbright then
begin
getcursorpos(xy);
opp.Popup(xy.x,xy.Y);
end;
end;

re是rxrichedit1的名称，在其mousedown事件中写入下面的代码。不在属性编辑其中选popupmenu选项。

 

W

wind98

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #6

哦...Sorry,我刚才又试了一下,发现是我的程序其它地方限制了，不关你们的事，在此向你们
道歉！你们是对的！：）
但是很是奇怪,为什么Rx的PopupMenu设置了不行呢？
这就给你们加分！

 

W

wind98

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #7

对了...卷起N堆雪的是不行的！

 

W

wind98

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #8

多人接受答案了。