实验项目名称:应用程序开发 实验类型:设计性试验 实验地点:计算中心微机实验室 实验类别:本科基础实验 实验学时:16 开出要求:必做 每组人数:1
实验日期:2010 年 04 月 28 日,05 月 12、26 日,6 月 2 日 一、实验目的 运用 Delphi 语言编程工具,制作一个小应用程序。 二、实验步骤 1.新建工程,在 Form1 上添加一个 Mainmenu 控件,两个 Edit 控件和一个 Panel 控件。 2.在菜单控件中添加相应的下拉菜单,如文件,编辑,格式等,在下拉菜单中添加相应项 目,如文件下拉菜单中有打开,保存,退出等。各个控件大致布局如下图所示:
3.然后在各组件对应部分添加代码,简要内容如下: var Form1: TForm1; implementation
第 13 页
{$R *.dfm} procedure TForm1.N7Click(Sender: TObject); begin close; end; procedure TForm1.N16Click(Sender: TObject); begin N23.checked:=not N23.checked; if N23.checked then Panel1.Font.Color:=clre
d else Panel1.Font.Color:=clBlack; end; procedure TForm1.N17Click(Sender: TObject); begin N23.checked:=not N23.checked; if N23.checked then Panel1.Font.Color:=clgreen else Panel1.Font.Color:=clBlack; end; procedure TForm1.N18Click(Sender: TObject); begin N23.checked:=not N23.checked; if N23.checked then Panel1.Font.Color:=clblue else Panel1.Font.Color:=clBlack; end; procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if edit1.selLength>0 then
第 14 页
edit1.enabled:=true; end; procedure TForm1.N19Click(Sender: TObject); begin if edit1.SelLength>0 then begin edit1.CopyToClipboard; edit1.Enabled:=true; end else showmessage('请先选定要复制的内容'); end; procedure TForm1.N23Click(Sender: TObject); begin edit2.SetFocus; edit2.PasteFromClipboard; end; procedure TForm1.N14Click(Sender: TObject); begin if panel1.font.style=[] then panel1.Font.style:=panel1.Font.style+[fsbold] else panel1.Font.style:=panel1.Font.style-[fsbold]; end; procedure TForm1.N15Click(Sender: TObject); begin if panel1.font.style=[] the