paintbox1:绘图板,显示当前的合法布局。
Label1:文字标签,显示当前合法布局的序号。
Button1,button2,button3,button4:开始、单幅、连续、退出按纽。
程序清单:
(1)代码单元unit1:
procedure TForm1.Button1Click(Sender: TObject);
begin
dstep:=true;
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
发布: 2008-5-20 09:54 | 作者: 不详 | 来源: csai | 查看: 51次 | 进入软件测试论坛讨论
文章来源于领测软件测试网 https://www.ltesting.net/