var dir:boolean;
procedure TFrmCaiMain.Timer1Timer(Sender: TObject);
begin
if dir then begin
if label1.Left < self.ClientWidth-label1.Width then
label1.Left:=label1.Left+5
else
dir:=false;
end else begin
if label1.Left > 0 then
label1.Left:=label1.Left-5
else
dir:=true;
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024