delphi popupmenu1 要在form1中做一个右键弹出式菜单，弹出式菜单有两个选择项（打印，退出）怎么编写代码
1个回答
展开全部
1、在Form窗体中添加PopupMenu菜单组件，设计好组件。把Form窗体的PopupMenu属性改成你添加的PopupMenu菜单的名字。
2、在窗体中添加PrintDialog对话框组件。
代码如下：
procedure TForm1.MenuPrintClick(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
ShowMessage(IntToStr(PrintDialog1.MinPage));
end;
end;
procedure TForm1.MenuExitClick(Sender: TObject);
begin
self.Close;
end;
2、在窗体中添加PrintDialog对话框组件。
代码如下：
procedure TForm1.MenuPrintClick(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
ShowMessage(IntToStr(PrintDialog1.MinPage));
end;
end;
procedure TForm1.MenuExitClick(Sender: TObject);
begin
self.Close;
end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
