************ 两个popupmenu之间的切换问题 ****************

[pig_pig2005]

if mbRight = Button then
if i=5 then
cxSpreadSheetBook1.PopupMenu:=PopupMenu2
else
cxSpreadSheetBook1.PopupMenu:=popupmenu1;

以上代码在MouseDown或Mouseup中，运行结果都是首先显示上次的popoupmenu的结果，而不是本次判断

的结果。例如，上次i＝4，popup为popupmenu1，本次i＝5的时候，第一次右键显示是popupmenu1，再

右键才为PopupMenu2。

如何解决这个问题？

[pig_pig2005]

如何截获？没用过，代码怎么写啊？

[lyre]

procedure ...OnFromCreate();
begin
cxSpreadSheetBook1.PopupMenu:= nil;
...
end;

if mbRight = Button then
if i=5 then
PopupMenu2.PopUp(...)
else
popupmenu1.PopUp(...);

[pig_pig2005]

to lyre(大头鬼) ：谢谢你的回答，但是你的方法问题依然存在。

[pig_pig2005]

我发现了问题的根源：由于 i 是根据当前活动单元格的列号来判断的，单元格激活落后于鼠标右键事件，所以总是慢半拍，总是显示上次活动单元格的结果。

这下不知道怎么办了？

[lyre]

试试这个办法：
type
Txx = class(...)
procedure WMUser(var Msg: TMessage); message WM_User;
...
end;

procedure Txx.OnMouseUp();
begin
if mbRight = Button then
PostMessage(Self.Handle, WM_User, 0, 0);
end;

procedure Txx.WMUser;
begin
if i=5 then
PopupMenu2.PopUp(...)
else
popupmenu1.PopUp(...);
end;

[imho888]

要在系统得到消息之前截获，再运行代码就可以了。

[mastersky]

1.不要设置PopupMenu属性。
2.
var
P:TPoint;
begin
P:=ClientToScreen(Point(TControl(Sender).Left+X,TControl(Sender).Top+Y));
if mbRight = Button then
if i=5 then
PopupMenu2.popup(P.X,P.Y)
else
PopupMenu1.popup(P.X,P.Y);
end;

[pig_pig2005]

还是不行，改动态生成popoup也还是那样，郁闷

[g961681]

直接弹出来，不要通过popupmenu来弹出。
menu.popup

********************************************************************
* Know Something About Everything, And Everything About Something! *
********************************************************************

[g961681]

直接弹出来，不要通过popupmenu来弹出。
menu.popup

********************************************************************
* Know Something About Everything, And Everything About Something! *
********************************************************************