Cita:
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
[-]
AnimateWindow (Panel1.Handle, 400, AW_ACTIVATE + AW_HOR_POSITIVE + AW_VER_POSITIVE);
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....