Question

问delphi中label文字向上移动怎么判断到顶后从下面出来呢

Answer 1

在控件Timer的OnTimer事件里写代码：procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Top + Label1.Height > 0 then
Label1.Top:= Label1.Top - 20
else
Label1.Top:= Self.Height;
end;