电子教鞭程序的设计与实现.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事件中编写程序代码。 实验设计和步骤 当按住鼠标左键下移动时，进