为什么我使用了 popupmenu 组件创建快捷菜单，运行后单击右键没有显示啊？？

Question

只是一个练习，代码如下：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    zoom1: TMenuItem;
    original1: TMenuItem;
    double1: TMenuItem;
    fullscreen1: TMenuItem;
    color1: TMenuItem;
    green1: TMenuItem;
    red1: TMenuItem;
    white1: TMenuItem;
    Label1: TLabel;
    procedure green1Click(Sender: TObject);
    procedure red1Click(Sender: TObject);
    procedure white1Click(Sender: TObject);
    procedure original1Click(Sender: TObject);
    procedure double1Click(Sender: TObject);
    procedure fullscreen1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.green1Click(Sender: TObject);
begin
  label1.Color:=clgreen;
  green1.Checked:=true;
end;procedure TForm1.red1Click(Sender: TObject);
begin
  label1.Color:=clred;
  red1.Checked:=true;
end;procedure TForm1.white1Click(Sender: TObject);
begin
  label1.Color:=clwhite;
  white1.Checked:=true;
end;procedure TForm1.original1Click(Sender: TObject);
begin
  form1.Left:=192;
  form1.Top:=107;
  form1.Width:=200;
  form1.Height:=150;
  form1.Caption:='original';
  original1.Checked:=true;
end;procedure TForm1.double1Click(Sender: TObject);
begin
  form1.Left:=192;
  form1.Top:=107;
  form1.Width:=200*2;
  form1.Height:=150*2;
  form1.Caption:='double';
  double1.Checked:=true;
end;procedure TForm1.fullscreen1Click(Sender: TObject);
begin
  form1.Left:=0;
  form1.Top:=0;
  form1.Width:=screen.Width;
  form1.Height:=screen.Height;
  form1.Caption:='fullscreen';
  fullscreen1.Checked:=true;
end;end.

Answer 1

你有没有将PopupMenu关联到窗体或控件上去呀？就是在要关联的窗体或控件的popupmenu属性 的下拉框中选中你做好的PopupMenu

Answer 2

你有没有将PopupMenu关联到窗体或控件上去呀？就是在要关联的窗体或控件的popupmenu属性 的下拉框中选中你做好的PopupMenu

Answer 3

要关联的窗体或控件的popupmenu属性 的下拉框中选中你做好的PopupMenu

Answer 4

你有没有将PopupMenu关联到窗体或控件上去呀？就是在要关联的窗体或控件的popupmenu属性 的下拉框中选中你做好的PopupMenu
  

Answer 5

设置窗体的PopupMenu属性为你的菜单。

Answer 6

在需要弹出右键菜单的时候让其弹出，通常是控件的OnMouseDown下if (...) then // 
  Popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);