Form einer Parabel folgen lassen

[Helmi]

hier mal der Code:

Delphi-Quellcode:

procedure TSplashScreenForm.FormActivate(Sender: TObject);
begin
  //Variablen vordefinieren
  Left_alt          := Left;
  Top_alt           := Top;
  count             := 1;
end;


procedure TSplashScreenForm.Timer_BewegungTimer(Sender: TObject);

begin
  //
  If count < const_max_count then
    begin
      //Bewegung des SplashScreens abhängig von der ausgewählten Version
      //      Left  := Left_alt - count;
      //      Top   := Top_alt - (count * count);


      //Top = y1 + ((y2-y1) / (x2-x1)²) * Sqr(Left - x1)



      Left  := Left_alt - round(count / 10.0 * Left_alt);
//      Top   := Top_alt - y;

       Top := Left_alt + round( ((  (const_Endpos_X - Left_alt) / ((const_Endpos_Y - Top_alt) * (const_Endpos_Y - Top_alt))  ) * Sqr(Left - Left_alt)) );

      end;

      inc(count);
    end
  else
    begin
      //Timer beenden
      Timer_Bewegung.Enabled  := false;

      //Variable setzen, dass SplashScreen in Position ist
      F_SS_in_Position        := true;
    end;
end;