Mover Panel En Form

[steelha]

Buenos dias.
Espero no haberme saltado algún hilo pero creo que todos los que pude leer antes de que me dolieran los ojos XD, referían a mover un panel con el mouse o colocar una ventana dentro y moverla con el mouse. Tengo un panel en el lado Derecho inferior y mi deseo es hacer un estilo de transicion del panel de su posicion hasta dejarlo centrado en la ventana pero no que aparezca solamente. Cual seria la mejor forma de hacer esto, en caso de no poderse lograr, con que aparezca en su centro pero que abra como desde una linea hasta llegar a su tamaño. Creo que pido mucho perdón.

Gracias de antemano por su ayuda y comentarios.

[Neftali [Germán.Estévez]]

Una forma sencilla de hacerlo es conseguir una animación utilizando un Timer. Pon un TTimer en el form, prueba con la propiedad Interval a 50 y en el evento OnTimer, modifica las propiedades Left, Top, Height y Width del Panel que quieres mover.
Cambia la propiedad DoubleBuffered del form y prueba con los 2 valores a ver si notas diferencia.

[bucanero]

hola

prueba el siguiente código:

se basa en determinar en el tiempo de la transición el valor que han de tener los cuatro puntos del panel, para lo cual se utiliza una función lineal donde x=0 es la posición inicial y x=AStep es el valor final, tenindo AStep el numero de pasos en que se quiere hacer la transición

Código Delphi [-]
type
  // Estructura de datos que funciona similar a como lo hace en matemáticas una
  // funcion lineal del tipo f(x) = a * x + b
  // y devuelve el valor de la función en el punto X de la linea
  TFLineal = record
  private
    a, b: Extended;
    function GetPoint(const x: Integer): Integer;
  public
    // valores iniciales para calcular la funcion lineal
    procedure init(const X1, y1, x2, y2: Integer);
    property Point[const x: Integer]: Integer read GetPoint; default;
  end;

...

{ TFLineal }
function TFLineal.GetPoint(const x: Integer): Integer;
begin
  Result := round(a * x + b);
end;

procedure TFLineal.init(const X1, y1, x2, y2: Integer);
begin
  // valores iniciales para calcular la funcion lineal
  a := (y2 - y1) / (x2 - X1);
  b := y1 - a * X1;
end;

y en la parte del formulario:

Código Delphi [-]
var
    fLeft, fWidth, fTop, fHeight: TFLineal;

...

procedure TForm2.AnimeConfig(AWinControl: TWinControl; const AWidth, AHeight,
  AStep: Word);
begin
  // se configura las coordenadas de la animación 
  fLeft.init(0, AWinControl.left, AStep, (ClientWidth - AWidth) div 2);
  fWidth.init(0, AWinControl.width, AStep, AWidth);
  fTop.init(0, AWinControl.top, AStep, (ClientHeight - AHeight) div 2);
  fHeight.init(0, AWinControl.height, AStep, AHeight);
end;

procedure TForm2.AnimeExecute(AWinControl: TWinControl; const AStep: Word);
var
  i, Ai: longint;
  tSleep:Word;
begin
  // la transicion durara 300 ms
  tSleep := 300 div AStep;
  if Tag <= 0 then begin
    i := 1;
    Ai := 1
  end
  else begin
    i := AStep - 1;
    Ai := -1;
  end;

  repeat
    with AWinControl do begin
      Left := fLeft[i];
      Top := fTop[i];
      Width := fWidth[i];
      Height := fHeight[i];
    end;
    Sleep(tSleep);
    i := i + Ai;
  until (i <= 0) or (i >= AStep);
  self.Tag := i;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  // configuración del ancho y alto que se quiere obtener
  AnimeConfig(Panel1, Width - 50, height - 300);
end;

procedure TForm2.Panel1DblClick(Sender: TObject);
begin
  // Se ejecuta la animación
  AnimeExecute(Panel1);
end;

[steelha]

Muchas gracias por la ayuda y ejemplos