当Label.left=195的时候,你运行这个函数看看。
如果需要修改,可以这样:
if label1.left=200 then
flag:=false;
if flag then
label1.left:=label1.Left +5;
if not flag then
Label1.Left :=label1.Left -5;
如果需要修改,可以这样:
if label1.left=200 then
flag:=false;
if flag then
label1.left:=label1.Left +5;
if not flag then
Label1.Left :=label1.Left -5;
这句改成 if label1.left > 200 then且flag是个什么变量?初始值是什么?
if (Label1.Left>200) or (Label1.Left<0) then
direction := -direction;
Label1.Left := Label1.Left + direction*5;direction为integer型,初始为1