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

Question

English Translation (been a while, so may not be entirely accurate; used google translate for the parts I had trouble with):

I'm working on a Visual Component in Delphi (it's not a standard Delphi component) which possesses a property called PopupMenu . I associated the property PopupMenu in the component with the PopupMenu, but when I click the right button [of the mouse], I see nothing.

I also tried to force it to display with this code:

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

I have two questions:

How do you know that the right click of the mouse is active? Have any of you encountered this type of problem? Thank you for your answers.

Thanks

EDIT

Here is the procedure that I'm using to execute the PopupMenu1: procedure

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

This will never work. You cannot mix code in a form with the component code.

I would suggest something like this:

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;  

or if you do not want the OnMouseUp to fire when a popup menu appears do:

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;  

See the difference? Popupmenu is now a part (well linked part anyway) of your component and not something that just happens to be on the same form.