Cita:
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
AnimateWindow (Panel1.Handle, 400, AW_ACTIVATE + AW_HOR_POSITIVE + AW_VER_POSITIVE);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
AnimateWindow (Panel1.Handle, 400, AW_HIDE + AW_HOR_NEGATIVE + AW_VER_NEGATIVE);
end;
Salud OS