网络发送接收+移动端编程

1、网络传输使用控件 IdHTTP1 

procedure TForm1.Button1Click(Sender: TObject);

var
  rsu: string;
begin
  rsu := idhttp1.Get('http://115.28.227.93:8081/?cmd=test');
  showmessage(rsu);
end;

2、移动编程

动画的实现：

  txtWelcome.Visible := true;
  txtWelcome.AnimateFloat('position.Y',((txtWelcome.Parent) as TControl).Height - txtWelcome.Height + 100, 2);
  timer1.Enabled := true;