1、在窗体中单击鼠标右键,将出现一个弹出式的菜单,可以点当天的优惠菜。在窗体下方的状态栏,显示出对应菜名的说明及当前点过菜打印输出:通过“重新点菜”按钮,可以将Memo组件中的内容清空,同时将状态栏中的总价格清为零。鼠标放在上方的BUTTON上,状态栏的左边将显示相应的菜名和菜价信息,点击BUTTON弹出对话框。确定后相应的菜名就出现在MEMO中,且状态栏的右方显示了所消费的价格。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, M
2、enus, StdCtrls, ComCtrls, ToolWin, ImgList;type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: N3: N6: N7: N4: N5: Label1: TLabel; Button1: TButton; Button2: Label2: Memo1: TMemo; PopupMenu1: TPopupMenu; E1: ImageList1: TImageList; ToolBar1: TToolBar; ToolButton1: TToolButton; ToolBu
3、tton2: ToolButton3: ToolButton4: ToolButton5: StatusBar1: TStatusBar; procedure N6Click(Sender: TObject); procedure N4Click(Sender: procedure N5Click(Sender: procedure N7Click(Sender: procedure ToolButton1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure ToolButton2MouseMove(S
4、ender: procedure ToolButton4MouseMove(Sender: procedure ToolButton5MouseMove(Sender: procedure FormMouseMove(Sender: procedure Button2Click(Sender: procedure Button1Click(Sender: private Private declarations Price:Integer;/总价格 public Public declarations end;var Form1: TForm1;implementation$R *.dfmpr
5、ocedure TForm1.N6Click(Sender:beginif messagedlg(麻辣鸡丝是宫廷名菜,麻辣爽口,鲜香诱人。确定吗?,mtConfirmation,mbYes,mbNo,0)=mrYes thenmemo1.Lines .Add(麻辣鸡丝);=Price+80;StatusBar1.Panels1.Text:= 总价格:+IntToStr(Price)+元;end;procedure TForm1.N4Click(Sender:if MessageDlg(大盘的青椒土豆丝货真价实,包您满意。memo1.Lines.add(大盘的青椒土豆丝=Price+20; St
6、atusBar1.Panels1.Text:=procedure TForm1.N5Click(Sender:小盘的青椒土豆丝经济实惠,您一定会吃了一盘想两盘,吃了两盘想四盘.确定吗?,mtConfirmation,mbYes,mbNo,0)=mrYes thenMemo1.Lines.Add(小盘的青椒土豆丝=Price+10;procedure TForm1.N7Click(Sender:群英荟萃是著名的宫廷名菜,爽口爽心。群英荟萃=Price+70;procedure TForm1.ToolButton1MouseMove(Sender: X, Y:StatusBar1.Panels0.
7、Text:大盘的青椒土豆丝仅要20元procedure TForm1.ToolButton2MouseMove(Sender:小盘的青椒土豆丝仅要10元procedure TForm1.ToolButton4MouseMove(Sender:麻辣鸡丝可是宫廷名菜,要您老80元,一点儿都不贵procedure TForm1.ToolButton5MouseMove(Sender:70元一盘香脆可口的群英荟萃(其实就是一盘大萝卜)procedure TForm1.FormMouseMove(Sender: StatusBar1.Panels0.Text:欢迎光临!procedure TForm1.Button2Click(Sender:memo1.Text:0元procedure TForm1.Button1Click(Sender:close;end.
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1