电子教鞭程序的计与实现(实验版).pptVIP

电子教鞭程序的设计与实现 实验设计和步骤 运行Delphi7，利用File菜单下的“New－Application”新建一个工程； 在D盘下新建一个文件夹（以自己名字命名），把工程文件 以“Draw.dpr”为文件名保存到该文件夹中； 把单元文件以“Draw_Unit.pas”为文件名也保存到该文件夹中，设置窗体Form1的BorderStyle属性为bsNone，WindowState属性设置为wsMaximized； 利用File菜单下的“New－Form”新建一个窗体，并把单元文件以“Set_Unit.pas”为文件名保存到文件夹中，窗口的界面如下： 画笔设置界面设计 实验设计和步骤 定义全局变量，保存画笔大小和颜色、鼠标左键是否被按下等信息 实验设计和步骤 系统初始化。 操作：选中Form1在对象观察器中选择“Events”选项卡，找到OnCreate事件，双击后面的空白框，然后在生成的代码框架中输入代码。 相关知识： TBrush—画刷对象 画刷对象用以填充图形，如用画刷颜色或图案对矩形或椭圆进行填充。如图所示为Style的取值以及相应的填充效果。 实验设计和步骤 当鼠标左键按下时，记录按下状态，设置画线的起点位置等。 操作：在窗体Form1的OnMouseDown事件中编写程序代码。 实验设计和步骤 当按住鼠标左键下移动时，进行画线。 操作：在窗体Form1的OnMouseMove事件中编写程序代码。 实验设计和步骤 当鼠标左键松开时，画线结束。 操作：在窗体Form1的OnMouseUp事件中编写程序代码。 实验设计和步骤 当按下键盘的ESC键，关闭程序；按下F8键打开画笔大小和颜色设置窗口。 操作：在窗体Form1的OnKeyDown事件中编写程序代码。 实验设计和步骤 实验设计和步骤 在画笔设置窗口中，双击编辑框，将弹出颜色设置对话框，供用户选择画笔的颜色。 操作：在窗体Form2的Edit_Color编辑框的OnDbClick事件中编写程序代码。 实验设计和步骤 关闭画笔设置窗口。 操作：在窗体Form2的“设置”按钮的OnClick事件中编写程序代码。 * * ColorDialog对话框（Dialog） 注意：在Draw_Unit单元中要使用Set_Unit单元中的对象或变量时，必须要在该单元引用Set_Unit单元。 *