实验4报告册.docx
- 文档编号:6242888
- 上传时间:2023-01-04
- 格式:DOCX
- 页数:7
- 大小:52.14KB
实验4报告册.docx
《实验4报告册.docx》由会员分享,可在线阅读,更多相关《实验4报告册.docx(7页珍藏版)》请在冰豆网上搜索。
实验4报告册
实验四
实验题目:
菜单组件程序设计
实验目的:
熟悉菜单项定义,快捷键的设置,窗体显示方式设置等。
实验类型:
验证性
实验内容:
菜单项定义,快捷键的设置,窗体显示方式设置,引用窗体,多窗体程序设计。
制作一个点菜的菜单:
如图所示,通过主菜单或者工具栏可以实现点菜的功能。
并将点的菜名列在窗体右边的Memo组件中。
在窗体中单击鼠标右键,将出现一个弹出式的菜单,可以点当天的优惠菜。
在窗体下方的状态栏,显示出对应菜名的说明及当前点过菜打印输出:
通过“重新点菜”按钮,可以将Memo组件中的内容清空,同时将状态栏中的总价格清为零。
鼠标放在上方的BUTTON上,状态栏的左边将显示相应的菜名和菜价信息,点击BUTTON弹出对话框。
确定后相应的菜名就出现在MEMO中,且状态栏的右方显示了所消费的价格。
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,Menus,StdCtrls,ComCtrls,ToolWin,ImgList;
type
TForm1=class(TForm)
MainMenu1:
TMainMenu;
N1:
TMenuItem;
N2:
TMenuItem;
N3:
TMenuItem;
N6:
TMenuItem;
N7:
TMenuItem;
N4:
TMenuItem;
N5:
TMenuItem;
Label1:
TLabel;
Button1:
TButton;
Button2:
TButton;
Label2:
TLabel;
Memo1:
TMemo;
PopupMenu1:
TPopupMenu;
E1:
TMenuItem;
ImageList1:
TImageList;
ToolBar1:
TToolBar;
ToolButton1:
TToolButton;
ToolButton2:
TToolButton;
ToolButton3:
TToolButton;
ToolButton4:
TToolButton;
ToolButton5:
TToolButton;
StatusBar1:
TStatusBar;
procedureN6Click(Sender:
TObject);
procedureN4Click(Sender:
TObject);
procedureN5Click(Sender:
TObject);
procedureN7Click(Sender:
TObject);
procedureToolButton1MouseMove(Sender:
TObject;Shift:
TShiftState;X,
Y:
Integer);
procedureToolButton2MouseMove(Sender:
TObject;Shift:
TShiftState;X,
Y:
Integer);
procedureToolButton4MouseMove(Sender:
TObject;Shift:
TShiftState;X,
Y:
Integer);
procedureToolButton5MouseMove(Sender:
TObject;Shift:
TShiftState;X,
Y:
Integer);
procedureFormMouseMove(Sender:
TObject;Shift:
TShiftState;X,
Y:
Integer);
procedureButton2Click(Sender:
TObject);
procedureButton1Click(Sender:
TObject);
private
{Privatedeclarations}
Price:
Integer;//总价格
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
implementation
{$R*.dfm}
procedureTForm1.N6Click(Sender:
TObject);
begin
ifmessagedlg('麻辣鸡丝是宫廷名菜,麻辣爽口,鲜香诱人。
确定吗?
',
mtConfirmation,[mbYes,mbNo],0)=mrYesthen
begin
memo1.Lines.Add('麻辣鸡丝');
Price:
=Price+80;
StatusBar1.Panels[1].Text:
='总价格:
'+IntToStr(Price)+'元';
end;
end;
procedureTForm1.N4Click(Sender:
TObject);
begin
ifMessageDlg('大盘的青椒土豆丝货真价实,包您满意。
确定吗?
',
mtConfirmation,[mbYes,mbNo],0)=mrYesthen
begin
memo1.Lines.add('大盘的青椒土豆丝');
Price:
=Price+20;
StatusBar1.Panels[1].Text:
='总价格:
'+IntToStr(Price)+'元';
end;
end;
procedureTForm1.N5Click(Sender:
TObject);
begin
ifMessageDlg('小盘的青椒土豆丝经济实惠,您一定会吃了一盘想两盘,吃了两盘想四盘.确定吗?
',mtConfirmation,[mbYes,mbNo],0)=mrYesthen
begin
Memo1.Lines.Add('小盘的青椒土豆丝');
Price:
=Price+10;
StatusBar1.Panels[1].Text:
='总价格:
'+IntToStr(Price)+'元';
end;
end;
procedureTForm1.N7Click(Sender:
TObject);
begin
ifMessageDlg('群英荟萃是著名的宫廷名菜,爽口爽心。
确定吗?
',
mtConfirmation,[mbYes,mbNo],0)=mrYesthen
begin
Memo1.Lines.Add('群英荟萃');
Price:
=Price+70;
StatusBar1.Panels[1].Text:
='总价格:
'+IntToStr(Price)+'元';
end;
end;
procedureTForm1.ToolButton1MouseMove(Sender:
TObject;Shift:
TShiftState;
X,Y:
Integer);
begin
StatusBar1.Panels[0].Text:
='大盘的青椒土豆丝仅要20元';
end;
procedureTForm1.ToolButton2MouseMove(Sender:
TObject;Shift:
TShiftState;
X,Y:
Integer);
begin
StatusBar1.Panels[0].Text:
='小盘的青椒土豆丝仅要10元';
end;
procedureTForm1.ToolButton4MouseMove(Sender:
TObject;Shift:
TShiftState;
X,Y:
Integer);
begin
StatusBar1.Panels[0].Text:
='麻辣鸡丝可是宫廷名菜,要您老80元,一点儿都不贵';
end;
procedureTForm1.ToolButton5MouseMove(Sender:
TObject;Shift:
TShiftState;
X,Y:
Integer);
begin
StatusBar1.Panels[0].Text:
='70元一盘香脆可口的群英荟萃(其实就是一盘大萝卜)';
end;
procedureTForm1.FormMouseMove(Sender:
TObject;Shift:
TShiftState;X,
Y:
Integer);
begin
StatusBar1.Panels[0].Text:
='欢迎光临!
';
end;
procedureTForm1.Button2Click(Sender:
TObject);
begin
memo1.Text:
='';
StatusBar1.Panels[1].Text:
='总价格:
0元'
end;
procedureTForm1.Button1Click(Sender:
TObject);
begin
close;
end;
end.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 报告