AnimateFloat: how to change X and Y simultaneously?

[Felix. 0]

I use this code (Delphi 10.4, Firemonkey, Android):

procedure TForm1.MoveButtonClick(Sender: TObject);
begin
  var
  Time := 1.0;
  var
  P := Image1.Position.Point + TPointF.Create(200, 100);
  TAnimator.AnimateFloat(Image1, 'Position.X', P.X, Time);
  TAnimator.AnimateFloat(Image1, 'Position.Y', P.Y, Time);
end;

The question is how can I change Position.X and Position.Y simultaneously, so I can use it with AnimateFloatWait?

There's an important procedure after animation that executes immediately (i.e. doesn't wait for the end of animation).

I tried to use in thread, but also with success.

[Rollo62 503]

You could assign an Event, and process more property than one inside.

 

BTW:  FMX.Types.TFmxObject.AnimateFloat is deprecated.

Edited December 1, 2021 by Rollo62