要不就彻底一点 加个ApplicationEvents1
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) or (Msg.message =WM_RBUTTONDBLCLK) then
Begin
popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
//Handled := True;
Msg.message:=0;
end;