第5章 常用组件.pptVIP

Delphi程序设计教程 * 2005年 8月 杨长春　主编 清华大学出版社 同名教材配套电子教案 第5章 常用组件 5.1 窗体 5.2 按钮、编辑框和标签 5.2.1 Button组件 5.2.2 BitBtn组件 5.2.3 SpeedButton组件 5.2.4 编辑框 Edit 5.2.5 Label控件 5.3复选框、单选按钮和单选按钮组 5.3.1 CheckBox控件 5.3.2 RadioButton控件 5.3.3 RadioGroup 控件 5.4 列表框、组合框 5.4.1 列表框 ListBox 5.4.2 组合框 ComboBox 5.5 滚动条 小结 习题5 5.1 窗体 用户界面是应用系统中直接面对用户的窗体，如图所示。 对象Tree View 对象观察器 主窗体 窗体设计器 代码窗口 1.Tform的主要属性 （1）BorderIcons （2）BorderStyle （3）Caption （4）Font （5）FormStyle （6）Icon （7）Name （8）Position （9）WindowsState 2.Tform 的事件 OnActive 当窗体对象被激活时产生此事件 OnClose 当窗体对象被关闭时产生此事件 OnCloseQuery 当窗体对象被关闭时产生此事件 OnCreate 当窗体对象创建时产生此事件 OnDeactivate 当窗体对象变为非激活时产生此事件 OnDestroy 当窗体对象被销毁前产生此事件 OnHide 当窗体对象被隐藏前产生此事件 OnPaint 当窗体对象客户取刷新时产生此事件 OnResize 当窗体对象位置移动时产生此事件 OnShow 当窗体对象显示时产生此事件 OnKeyDown 键盘按下时产生此事件 OnKeyPress 键盘按下时产生此事件 OnKeyUp 键盘放开时产生此事件 OnClick 鼠标单击事件 OnDblClick 鼠标双击事件 OnDragDrop 鼠标拖放事件 OnDragOver 鼠标拖过事件 OnMouseDown 鼠标按下事件 OnMouseMove 鼠标移过事件 OnMouseUp 鼠标释放事件 【例5.1】第一个实例是创建一个颜色渐变的窗体，这个实例实现的过程如下： 界面设计 通过集成开发环境中的【File】→【New】→【Application】菜单， 创建一个应用程序，此时应用程序自动生成一个窗体Form1。使用Button组件即可完成界面设计。 程序设计 procedure TForm1.Button1Click(Sender: TObject);//按钮单击事件 var i,j,k:integer; dct:trect; begin if button1.caption=渐变效果 then //判断按钮的执行条件 begin button1.Caption:=恢复; i:=form1.Width; //得到窗体的宽度 j:=form1.Height; //得到窗体的高度 for k:=0 to i do //设置RGB中的一个颜色值 begin canvas.Brush.Color:=rgb(255,k,j); //每次画矩形的画刷颜色 dct:=rect(i*2,0,(k+1)*2,j); //每次绘制的矩形区域 canvas.FillRect(dct); //填充颜色 end; end else begin //恢复窗体的颜色 i:=form1.Width; //得到窗体的宽度 j:=form1.Height; //得到窗体的高度 button1.caption:=渐变效果; canvas.Brush.Color:=clBtnFace //画矩形的画刷颜色 dct:=rect(