Delphi：PopupMenu 在我的组件中不起作用

Question

英文翻译（已经有一段时间了，所以可能不完全准确；使用谷歌翻译来翻译我遇到问题的部分）：

我正在 Delphi 中开发一个可视化组件（它不是标准的 Delphi 组件），它拥有一个名为 < 的属性代码>弹出菜单。我将组件中的属性 PopupMenu 与 PopupMenu 关联起来，但是当我单击[鼠标]右键时，我什么也没看到。

我还尝试用此代码强制它显示：

x:= Mouse.CursorPos.X; 
y:= Mouse.CursorPos.Y; 
// //showmessage(inttostr(x)) PopupMenu1.Popup(x,y);

我有两个问题：

你如何知道鼠标右键单击处于活动状态？你们中有人遇到过此类问题吗？谢谢您的回答。

谢谢

编辑

这是我用来执行PopupMenu1:过程的过程

TForm6.GeckoBrowser1DOMMouseDown(Sender: TObject; Key: Word); 
var x,y:integer; 
begin 
  if key=VK_RBUTTON then begin 
    x:= Mouse.CursorPos.X; 
    y:= Mouse.CursorPos.Y; 
    //showmessage(inttostr(x)) PopupMenu1.Popup(x,y); 
  end; 
end;

Answer 1

这永远不会起作用。您不能将表单中的代码与组件代码混合。

我建议这样：

interface

type
  TGeckoBrowser = class(....
private
  FPopupmenu: TPopupMenu;
protected
  ...
  procedure MouseUp(Sender: TObject; Key: Word); override;
  ...
published
  property PopupMenu: TPopupMenu read FPopupMenu write FPopupMenu;
end;

implementation

....

procedure TGeckoBrowser.MouseUp(Sender: TObject; Key: Word);
var
  x,y: integer;
begin
  inherited;
  if (key=VK_RBUTTON) and Assigned(PopupMenu) then begin 
    x:= Mouse.CursorPos.X; 
    y:= Mouse.CursorPos.Y;
    PopupMenu.Popup(x,y);
  end; {if}
end;  

或者如果您不希望 OnMouseUp 在出现弹出菜单时触发，请执行以下操作：

implementation

....

procedure TGeckoBrowser.MouseUp(Sender: TObject; Key: Word);
var
  x,y: integer;
begin
  if (key=VK_RBUTTON) and Assigned(PopupMenu) then begin 
    x:= Mouse.CursorPos.X; 
    y:= Mouse.CursorPos.Y;
    PopupMenu.Popup(x,y);
  end {if}
  else inherited;
end;  

看到区别了吗？ Popupmenu 现在是组件的一部分（无论如何都是良好链接的部分），而不是恰好位于同一表单上的东西。