Tpanle como Tform

[[egostar]]

Empezado por 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

En tiempo de diseño debes de asignar la propiedad Visible a False y la funcion AnimateWindow() hará el resto, AW_ACTIVATE y AW_HIDE son las que hacen que se vea o se oculte.

No entiendo porque no ves el efecto, ya cambiaste de color el TPanel?

Yo lo he puesto de color clInfoBk y se ve perfecto.

Otra cosa, lo estoy haciendo desde dos botones, uno para mostrar y otro para ocultar.

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

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  //CERRAR
  AnimateWindow (Panel1.Handle, 400, AW_HIDE + AW_HOR_NEGATIVE + AW_VER_NEGATIVE);
end;

Salud OS