窗体上创建动画效果.txt

来自「创建异形窗体可以创建出各种各样的异形窗体」· 文本 代码 · 共 16 行

把image的center 设置为true;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Image1.Left>0) then
begin
Image1.Left:=Image1.Left-10;
Image1.Width:=Image1.Width+20;
end
else
begin
timer1.Enabled:=false;
end

end;

end.