Tpanle como Tform

[[felipe88]]

TPanel como TForm

Hola compañeros del club, tengo con una simple inquietud y espero me puedan ayudar, basicamente lo que busco es crear el mismo tipo de animacion de una ventana...

Código Delphi [-]
procedure TFrmPrestamo.ccreditoClick(Sender: TObject);
begin
  AnimateWindow(Handle,400,AW_ACTIVATE or AW_SLIDE or AW_VER_POSITIVE);
end;

Pero que en un Tpanel. La verdad me parece mas conveniente este efecto que intentar otro metodo con bucles y refresh en el panel, que no se ven nada bien, y no se como crear una variable que me force a crear el panel como si fuese un form pero sin olvidar el manejador Handle

[[felipe88]]

Posteo mi propio hilo para que no se quede en el olvido...

Añado algo a mi pregunta, el panel permanece invisible y al hacer click en un boton aparece; es ahí donde quiero realizar el efecto...

[cmm07]

No entiendo mucho tu pregunta, pero voy a responder por lo que entendí:

Lo que quieres hacer (Supongo) es que este efecto se haga en un panel o form, eso es lo que entendí aqui te dejo la instruccion:

Para un Form:
AnimateWindow(Form2.Handle,400,AW_ACTIVATE or AW_SLIDE or AW_VER_POSITIVE);

Para un Panel:
AnimateWindow(Panel1.Handle,400,AW_ACTIVATE or AW_SLIDE or AW_VER_POSITIVE);

[[felipe88]]

Empezado por cmm07

No entiendo mucho tu pregunta, pero voy a responder por lo que entendí:

Lo que quieres hacer (Supongo) es que este efecto se haga en un panel o form, eso es lo que entendí aqui te dejo la instruccion:

Para un Form:
AnimateWindow(Form2.Handle,400,AW_ACTIVATE or AW_SLIDE or AW_VER_POSITIVE);

Para un Panel:
AnimateWindow(Panel1.Handle,400,AW_ACTIVATE or AW_SLIDE or AW_VER_POSITIVE);

Bueno basicamente la idea es animar el panel como lo haria esta funcion en el formulario, pero si habras probado tu codigo veras que aunque no muestra error o no hace nada o no se ve...

Ademas ten en cuenta que en un formulario normal se haria en el evento OnShow por ejemplo, en cambio con el panel no seria lo mismo; como dije anteriormente

Añado algo a mi pregunta, el panel permanece invisible y al hacer click en un boton aparece; es ahí donde quiero realizar el efecto...

Lo que quiero saber es que tanto me permite esta funcion o si existe alguna otra que me permita hacer esto...

[[egostar]]

Empezado por felipe88

Bueno basicamente la idea es animar el panel como lo haria esta funcion en el formulario, pero si habras probado tu codigo veras que aunque no muestra error o no hace nada o no se ve...

Ademas ten en cuenta que en un formulario normal se haria en el evento OnShow por ejemplo, en cambio con el panel no seria lo mismo; como dije anteriormente

Lo que quiero saber es que tanto me permite esta funcion o si existe alguna otra que me permita hacer esto...

He ejecutado lo que nuestro amigo cmm07 y funciona correctamente; al dar clic en el botón se muestra el panel animado.

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  AnimateWindow (Panel1.Handle, 400, AW_ACTIVATE or AW_SLIDE or AW_VER_POSITIVE);
end;

Solo te falta asignar false a la propiedad Visible del Panel1.

Y si lo quieres "cerrar" se hace así

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  AnimateWindow (Panel1.Handle, 400, AW_HIDE or AW_SLIDE or AW_VER_NEGATIVE);
end;

Salud OS

Edito

Si quieres otro tipo de efecto intenta con esto:

Código Delphi [-]
  //ABRIR
  AnimateWindow (Panel1.Handle, 400, AW_ACTIVATE + AW_HOR_POSITIVE + AW_VER_POSITIVE);
  //CERRAR
  AnimateWindow (Panel1.Handle, 400, AW_HIDE + AW_HOR_NEGATIVE + AW_VER_NEGATIVE);

Veras algo interesante.

Otra cosa, si cambias el color de tu panel a otro que no sea el de la forma, veras el efecto mucho mejor....

[[felipe88]]

Hola, estoy probando el efecto a ver si me funciona porque hasta ahora no he podido ver nada... el problema que me surge ahora es como manejar la propiedad visible del componente TPanel, antes o despues de la animacion; o sera que el mismo no me permitira verlo