Question

delphi popupmenu1 要在form1中做一个右键弹出式菜单，弹出式菜单有两个选择项（打印，退出）怎么编写代码

Answer 1

增加一个popupmenu 组件
增加这个组件的2个item。分别是打印和退出
设置form1的 popupmenu属性 选择 增加的这个popupmenu 组件
打印和退出的编码 就双击 popupmenu 组件

Answer 2

先拖一个控件popupmenu1 ，在上面设置好打印和退出
然后在form1的popupmenu设置为popupmenu1
然后在popupmenu1 的打印和退出那儿写相关代码

Answer 3

设置form1的popupmenu设置为popupmenu1

Answer 4

最烂的打印效果与退出程序：
procedure TForm1.Ext1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Print1Click(Sender: TObject);
begin
if Printdialog1.Execute then
form1.Print;
end;