实验4报告册

实验四。

实验题目：菜单组件程序设计。

实验目的：熟悉菜单项定义，快捷键的设置，窗体显示方式设置等。

实验类型：验证性。

实验内容：菜单项定义，快捷键的设置，窗体显示方式设置，引用窗体，多窗体程序设计。

制作一个点菜的菜单：如图所示，通过主菜单或者工具栏可以实现点菜的功能。并将点的菜名列在窗体右边的memo组件中。

在窗体中单击鼠标右键，将出现一个弹出式的菜单，可以点当天的优惠菜。在窗体下方的状态栏，显示出对应菜名的说明及当前点过菜打印输出：通过“重新点菜”按钮，可以将memo组件中的内容清空，同时将状态栏中的总**清为零。

鼠标放在上方的button上，状态栏的左边将显示相应的菜名和菜价信息，点击button弹出对话框。

确定后相应的菜名就出现在memo中，且状态栏的右方显示了所消费的**。

unit unit1;

interface

useswindows, messages, sysutils, variants, classes, graphics, controls, forms,dialogs, menus, stdctrls, comctrls, toolwin, imglist;

typetform1 = 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;

*******1: t*******;

toolbutton1: ttoolbutton;

toolbutton2: ttoolbutton;

toolbutton3: ttoolbutton;

toolbutton4: ttoolbutton;

toolbutton5: ttoolbutton;

statusbar1: tstatusbar;

procedure n6click(sender: tobject);

procedure n4click(sender: tobject);

procedure n5click(sender: tobject);

procedure n7click(sender: tobject);

procedure toolbutton1mousemove(sender: tobject; shift: tshiftstate; x,y: integer);

procedure toolbutton2mousemove(sender: tobject; shift: tshiftstate; x,y: integer);

procedure toolbutton4mousemove(sender: tobject; shift: tshiftstate; x,y: integer);

procedure toolbutton5mousemove(sender: tobject; shift: tshiftstate; x,y: integer);

procedure formmousemove(sender: tobject; shift: tshiftstate; x,y: integer);

procedure button2click(sender: tobject);

procedure button1click(sender: tobject);

private

price:integer;//总**。

public

end;var

form1: tform1;

implementation

$r *.dfm}

procedure tobject);

beginif messagedlg('麻辣鸡丝是宫廷名菜，麻辣爽口，鲜香诱人。确定吗？',mtconfirmation,[mbyes,mbno],0)=mryes then

begin.add('麻辣鸡丝');

price:=price+80;

'总**：'+inttostr(price)+'元';

end;end;

procedure tobject);

beginif messagedlg('**的青椒土豆丝货真价实，包您满意。确定吗？',mtconfirmation,[mbyes,mbno],0)=mryes then

begin**的青椒土豆丝');

price:=price+20;

'总**：'+inttostr(price)+'元';

end;end;

procedure tobject);

beginif messagedlg('小盘的青椒土豆丝经济实惠，您一定会吃了一盘想两盘，吃了两盘想四盘。确定吗？',mtconfirmation,[mbyes,mbno],0)=mryes then

begin小盘的青椒土豆丝');

price:=price+10;

总**：'+inttostr(price)+'元';

end;end;

procedure tobject);

beginif messagedlg('群英荟萃是著名的宫廷名菜，爽口爽心。确定吗？',mtconfirmation,[mbyes,mbno],0)=mryes then

begin群英荟萃');

price:=price+70;

总**：'+inttostr(price)+'元';

end;end;

procedure tobject; shift: tshiftstate;

x, y: integer);

begin**的青椒土豆丝仅要20元';

end;procedure tobject; shift: tshiftstate;

x, y: integer);

begin小盘的青椒土豆丝仅要10元';

end;procedure tobject; shift: tshiftstate;

x, y: integer);

begin麻辣鸡丝可是宫廷名菜，要您老80元，一点儿都不贵';

end;procedure tobject; shift: tshiftstate;

x, y: integer);

begin70元一盘香脆可口的群英荟萃(其实就是一盘大萝卜)';

end;procedure tobject; shift: tshiftstate; x,y: integer);

begin'欢迎光临！';

end;procedure tobject);begin

总**：0元'

end;procedure tobject);

beginclose;

end;end.

实验4报告册

实验4报告

实验4报告

实验4实验报告

其他用户还读了