在delphi中如何触发一个事件 干嘛,Click事件是鼠标左键专用的,你把事件放到MouseDown下去吧,通过判断Button的值来触发,Button有三种值:mbLeft, mbRight和mbMiddle,当Button = mbRight时,证明按下的是右键。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在delphi中大部分对象都有一个popupmenu的属性,你可把一个popupmenu对象与其他对象连接起来,在程序运行时,可点击鼠标右键弹出弹出式菜单,但我现在点击鼠标右键事也达到同样的效果?不知该如何做? 直接调用,如要调用Click事件的代码就写: Form.OnClick(nil);调用Show: Form.Show(nil); 对于触发右键:YouForm.OnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer)其中的参数根据你的需要自己设置。 放一个Memo1和一个PopupMenu1,在Memo1的MouseDown事件中写入下面代码procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin if Button = mbRight then begin PopupMenu1.Popup(X + Form1.Left + TMemo(Sender).Left, Y + Form1.Top + TMemo(Sender).Top); end;end; 怎样一台主机控制多台计算机的鼠标和键盘? 高分求解,怎样把EXCEL导入到SQL SERVER中 关于INDY HTTPSERVER的问题 怎样测试针式打印机的断针? 谁有 《delphi 6 入门经典》 这本书呀? 求助!!!基础问题,望指教! 请看看这个函数... 单机版人事管理信息系统的运行环境? 编制多线程程序的大致步骤 socket大数据量通信的问题? 数据库报表问题 DELPHI中MomentSkewKurtosis过程参数求解!!!!!!
调用Show: Form.Show(nil);
Shift: TShiftState; X, Y: Integer)其中的参数根据你的需要自己设置。
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then begin
PopupMenu1.Popup(X + Form1.Left + TMemo(Sender).Left, Y + Form1.Top + TMemo(Sender).Top);
end;
end;