关于鼠标点击的消息控制(200分)

5291 · 2001-10-24

1）当鼠标在一个 MenuItem 上右键点击一下，如何让一个我指定的 PopupMenu 在这个    MenuItem 上面弹出？（这个效果就是 IE5 打开收藏菜单，右键点击某个书签时，    弹出一个相关的操作菜单一样） 2）当我在 WebBrowser 上鼠标左键点击一下，如何获得这个动作，并且获得它的时间？

txmaster · 2001-10-24

我想应该可以这样解决： 在menuitem的onclick中检查是否单击了右键，是的话就popupmenu1.popup;就可以了。 难道WebBrowser没有OnClick事件？

zhangkan · 2001-10-24

>>（这个效果就是 IE5 打开收藏菜单，右键点击某个书签时，弹出一个相关的操作菜单一样） 那不是MenuItem吧,那是ListBox.你想你要实现在菜单中右击出现另一个子菜单的话,恐怕不 太好办吧.在Click事件中只有(Sender: TObject)参数,你点击它右键根本不会理.

5291 · 2001-10-24

在 OnClick 中判断右键还是左键是可以办到的。但是如果是在 OnClick 中再判断 已经太晚了。因为无论是左键还是右键，只要触发 OnClick 后，该菜单都会消失。 就是说这样会出现 MenuItem 所处在的菜单消失了，而另一个我弹出的菜单孤零零 地在屏幕上。这肯定是不行的。WebBrowser 当然也没有 OnClick 事件。我估计这 二个问题必须通过 Message 来解决。

allenzen · 2001-10-27

TMenuItem是从TComponent继续下来的，无法处理消息。好像行不通。

xiaoshandong · 2001-10-29

听听各位的高见

JeffreyRichter · 2001-10-30

TMenuItem本身不具备监视鼠标按键的消息。 事实上，在一个Menu Item被click后，拥有此Menu的窗口受到一个WM_MENUSELECT消息。然而此时Menu并没有消失。

jasper · 2001-10-30

可以在窗体FormMouseUp or FormMouseDown中监控，下面PopupMenu1.Popup(x,y);也可以执行， 没有错误，但是不能弹出，不知道为什么。 关注： procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin    if button =mbRight then    begin      PopupMenu1.Popup(x,y); //其他 end;

5291 · 2001-10-30

这个效果肯定是可以实现的。51357(浏览器)就实现了这个。

教父 · 2001-10-30

我估计这需要从TMainMenu中新继承出一个类，然后拦截鼠标的点击动作，如果是右击的话， 就不用inherited，不知这样行不行？

xuqian · 2001-11-02

用 API 的键盘事件可以获得鼠标的点击。 虽然可以捕捉，但是原来的菜单会消失。

5291 · 2001-11-05

接受答案了.

关于鼠标点击的消息控制(200分)

5291

Unregistered / Unconfirmed

txmaster

Unregistered / Unconfirmed

zhangkan

Unregistered / Unconfirmed

5291

Unregistered / Unconfirmed

allenzen

Unregistered / Unconfirmed

xiaoshandong

Unregistered / Unconfirmed

JeffreyRichter

Unregistered / Unconfirmed

jasper

Unregistered / Unconfirmed

5291

Unregistered / Unconfirmed

教父

Unregistered / Unconfirmed

xuqian

Unregistered / Unconfirmed

5291

Unregistered / Unconfirmed

Similar threads