;;X) 设置值
创建该应用程序的步骤是:创建应用程序和主窗体formInfoInput 设置主窗体 属性 添加主窗体的组件对象 设置主窗体的组件对象的属性 创建formInfoShow 窗体 设置formInfoShow窗体属性 添加formInfoShow窗体的组件对象 设置 formInfoShow窗体的组件对象的属性 编写程序代码(本例程序代码主要是按钮的 事件处理代码) 运行程序 保存文件。 以下是详细操作步骤:
1.3 Delphi 2006应用程序开发框架 应用程序开发框架
1. 创建应用程序 2. 设置主窗体属性 3. 添加主窗体的组件对象并设置组件对象的属性
4. 设置 设置formInfoInput窗体中的组
件对象属性 窗体中的组件对象属性
单击Items属性值上的 按钮,将弹出如图1.12所示的字符串编辑对话框, 在其中逐行编辑下拉列表框的内容,编辑完毕后,单击OK按钮即可。
图1.12编辑字符串对话框 编辑字符串对话框
1.3 Delphi 2006应用程序开发框架 应用程序开发框架
5. 创建 创建formInfoShow窗体 窗体 6. 设置 设置formInfoShow窗体中的组件对象属性 窗体中的组件对象属性 7. 编写程序代码
//“显示输入”按钮事件处理代码 procedure TformInfoInput.btnShowClick(Sender: TObject); begin formInfoShow.ShowModal; end; //“清除”按钮事件处理代码 procedure TformInfoInput.btnClearClick(Sender: TObject); begin // 清空各文本框 EdtName.Text:=''; EdtAge.Text:=''; EdtPhone.Text:=''; end; // formInfoInput窗体的“退出”按钮事件处理代码 procedure TformInfoInput.btnExitClick(Sender: TObject); begin formInfoInput.Close; formInfoInput窗体 end;
// 显示formInfoShow窗体
// ''为2个单引号
// 关闭
1.3 Delphi 2006应用程序开发框架 应用程序开发框架
在formInfoShow窗体的空白处单击,在Object Inspector(对象查看器)的 formInfoShow窗体事件选项卡的OnShow事件右边空白处双击,将弹出代码编辑窗口, 输入如下程序代码:
procedure TformInfoShow.FormShow(Sender: TObject); var tmpstring:string; begin MemShowInfo.lines.Clear; tmpstring:=':'; tmpstring:=tmpstring+formInfoInput.EdtName.Text; tmpstring:=tmpstring+#13+#10; tmpstring:=tmpstring+'年龄:'+formInfoInput.EdtAge.Text+#13+#10; tmpstring:=tmpstring+'性别:'+formInfoInput.cmbxSex.Text+#13+#10; tmpstring:=tmpstring+'职务:'+formInfoInput.cmbxDuty.Text+#13+#10; tmpstring:=tmpstring+'电话:'+formInfoInput.EdtPhone.Text+#13+#10; tmpstring:=tmpstring+'部门:'+formInfoInput.cmbxWkSpace.Text+#13+#10; MemShowInfo.Lines.Add(tmpstring); end;
formInfoShow窗体的“退出”按钮事件处理代码:
procedure TformInfoShow.btnQuitClick(Sender: TObject); begin formInfoShow.close; end; // 关闭formInfoShow窗体
1.3 Delphi 2006应用程序开发框架 应用程序开发框架
8. 运行程序 单击快捷工具栏的按钮(F9快捷键),或选择主菜单下Run Run选项运行该程序。 其运行后的主界面窗口如图1.13所示,在文本框中分别输入、年