好奇怪的事,请高手指点。在线= ( 积分: 100 )

  • 主题发起人 主题发起人 kmchen
  • 开始时间 开始时间
K

kmchen

Unregistered / Unconfirmed
GUEST, unregistred user!
我为edit设置鼠标右键点击事件,一直运行正常,突然:在edit上点击鼠标右键不会响应我的事件,而是出现:粘贴,删除。。。。。从右向左的顺序阅读等等。后发现,包括combobox上点击鼠标右键也是一样的,不懂,请各位大大指点我下。兄弟在电脑前含泪等待中。谢谢。
 
我试了,不会的
procedure TForm1.Edit1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
if Button = mbRight then
ShowMessage('ss');
end;
 
那是其他某个程序的菜单吧
 
呵呵,是你改了Edit1的PopupMemu的属性
你重新设置一下:PopupMemu为PopupMenu1就可以了
 
后退
顶部