Efecto scroll tipo Gator o Messenger.

setry2 · #1 25-01-2005

Hola a todos,

A ver si podéis echarme una mano. Tengo una aplicación y me gustaría que al conectarse el usuario a internet apareciera con un efecto de scroll similar al Gator o al Messanger, en el borde inferior derecho de la pantalla, sobre el reloj (ya sabéis). El problema es que no se como hacer este efecto scroll y que vaya apareciendo el form poco a poco. ¿Podéis ayudarme?

Un saludo y muchas gracias de antemano.

delphi.com.ar · #2 25-01-2005

Probaste el TMSNPopUp ??
http://www.torry.net/vcl/forms/appearence/tmsnpopup.zip

Saludos!

argami · #3 25-01-2005

prueba con un form y esta opcion

para ocultar

Código:

AnimateWindow(form.Handle, 100, AW_SLIDE or AW_VER_NEGATIVE or AW_HIDE)

para mostrar

Código:

AnimateWindow(form.Handle, 100, AW_SLIDE or AW_VER_POSITIVE or AW_SHOW)

el numeo entero te permite modificar el tiempo

Neftali [Germán.Estévez] · #4 25-01-2005

También pruedes echarle un vistazo a éste componente a ver si te es últil.

http://www.delphiarea.com/products/smoothshow/

setry2 · #5 25-01-2005

Cita:

Empezado por argami

prueba con un form y esta opcion

para ocultar

Código:

AnimateWindow(form.Handle, 100, AW_SLIDE or AW_VER_NEGATIVE or AW_HIDE)

para mostrar

Código:

AnimateWindow(form.Handle, 100, AW_SLIDE or AW_VER_POSITIVE or AW_SHOW)

el numeo entero te permite modificar el tiempo

No encuentro esa funcion en Delphi 5, ¿hay alguna otra que pueda utilizarse? Gracias al resto, voy a descargar los componentes a ver que tal.

argami · #6 25-01-2005

Esta el windows.pas solo hace falta que lo añadas a las uses (windows) al aplicativo lo he probado en delphi 5 y 7 y va todo bien

roman · #7 26-01-2005

Muy interesante función argami, nunca la había visto.

Me parece que el AW_SHOW no va. Al menos a mi no me lo reconoce y según la documentación si no se pone AW_HIDE la ventana se muestra. Lo que sí me ocurrió es que si la ventana está de inicio invisible (Form.Visible = false) al usar la función no se muestra correctamente, esto es, no aparecen los controles dentro de ella. Pero bastó poner Visible := true justo antes de la función y ya funcionó.

En fin, gracias por el tip, está bonito para jugar un rato.

// Saludos

setry2 · #8 26-01-2005

Cita:

Empezado por argami

Esta el windows.pas solo hace falta que lo añadas a las uses (windows) al aplicativo lo he probado en delphi 5 y 7 y va todo bien

Argami, es justo lo que necesitaba. Muchas gracias por todo!
El tmsnPopup para avisos funciona perfectamente, pero yo necesito que se cargue la página web en el interior del popup. Para avisos el efecto es muy bueno! Muchas gracias también al moderador.

Un saludo!

argami · #9 26-01-2005

Si quereis tener lo que podeis usar en esta funcion aqui lo teneis:

Manejar estas en un plano cartesino y lo entendereis

AW_HOR_POSITIVE
AW_HOR_NEGATIVE
AW_VER_POSITIVE
AW_VER_NEGATIVE

podeis usar la suma que querais

AW_CENTER Desde el punto 0 hacia afuera
AW_HIDE Ocultar
AW_ACTIVATE Activar
AW_SLIDE Animacion tipo apertura
AW_BLEND Animacion tipo difuminacion

Mauro® · #10 21-04-2005

Muy bueno truco, pero no logro que los componentes dentro de la Form se vean, cuál puede ser el problema?

Saludos,
Mauro

roman · #11 21-04-2005

Cita:

Empezado por Mauro®

Muy bueno truco, pero no logro que los componentes dentro de la Form se vean, cuál puede ser el problema?

¿Te fijaste en mi mensaje anterior en este hilo?

// Saludos

Mauro® · #12 21-04-2005

Si me eh fijado pero no funciona, la muestra una vez de golpe, o sea, no respeta la animación y luego no funciona más. Algo debo estar haciendo mal.
Podrías enviarme el código con el que tu lo haz hecho funcionar.
Gracias!

Saludos, Mauro