Asunto: Crear ventana similar a la del aviso de Outlook
Tengo una aplicación realizada en Borland Delphi 6, quisiera saber si es posible crear una ventana que se parezca en la forma de salir y cerrarse a la del Office Outlook 2003 y 2007, que aparece con efecto de transparencia, si pasas el ratón por encima no desaparece y si mueves el cursor del ratón fuera de la ventana de aviso desaparece.
También quiero que aparezca en la misma zona la del Office Outlook ¿es posible en Delphi 6?
Publicado:
Jue May 14, 2009 9:14 am
varios Magnífico usuario
Registrado: Oct 10, 2006 Mensajes: 2092
Asunto: Re: Crear ventana similar a la del aviso de Outlook
Anuncios
varios escribió:
Tengo una aplicación realizada en Borland Delphi 6, quisiera saber si es posible crear una ventana que se parezca en la forma de salir y cerrarse a la del Office Outlook 2003 y 2007, que aparece con efecto de transparencia, si pasas el ratón por encima no desaparece y si mueves el cursor del ratón fuera de la ventana de aviso desaparece.
También quiero que aparezca en la misma zona la del Office Outlook ¿es posible en Delphi 6?
Me refiero, por si no ha quedado claro, a esa ventana de notificación de nuevo email que muestra el Outlook que va con el Office, que aparece unos segundos y desaparece si no se pone el cursor del ratón sobre ella.
Publicado:
Jue May 14, 2009 9:23 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Crear ventana similar a la del aviso de Outlook
Anuncios
varios escribió:
varios escribió:
Tengo una aplicación realizada en Borland Delphi 6, quisiera saber si es posible crear una ventana que se parezca en la forma de salir y cerrarse a la del Office Outlook 2003 y 2007, que aparece con efecto de transparencia, si pasas el ratón por encima no desaparece y si mueves el cursor del ratón fuera de la ventana de aviso desaparece.
También quiero que aparezca en la misma zona la del Office Outlook ¿es posible en Delphi 6?
Me refiero, por si no ha quedado claro, a esa ventana de notificación de nuevo email que muestra el Outlook que va con el Office, que aparece unos segundos y desaparece si no se pone el cursor del ratón sobre ella.
procedure TformNotificacionI.tmCerrarTimer(Sender: TObject);
begin
if not hayActividad then
tmTransparenciaCerrar.Enabled := true;
end;
procedure TformNotificacionI.tmTransparenciaCerrarTimer(Sender: TObject);
begin
if hayActividad then
begin
tmTransparenciaCerrar.Enabled := false;
tmTransparenciaIncrementar.Enabled := true;
end
else
begin
if AgBlend1.Opacity = 0 then
close;
AgBlend1.Opacity := AgBlend1.Opacity - 5;
AgBlend1.Refresh;
end;
end;
procedure TformNotificacionI.tmActividadTimer(Sender: TObject);
var
posicionRaton : TPoint;
begin
GetCursorPos (posicionRaton);
if (posicionRaton.Y > Top + formNotificacionI.Height) or
(posicionRaton.Y < Top) or
(posicionRaton.X > Left + formNotificacionI.Width) or
(posicionRaton.X < Left) then
hayActividad := false
else
hayActividad := true;
end;
En este código fuente (source code) de ejemplo, necesitaras en el formulario varios componentes, te mostramos los componentes en esta imagen:
Lógicamente habrá componentes que no necesites, dependerá de lo que quieras mostrar al usuario, pero seguro que te sirve de base.
Ten en cuenta que para la transparencia del formulario utilizamos el componente gratuito AgBlend.
Publicado:
Mar May 26, 2009 5:06 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Crear ventana similar a la del aviso de Outlook
Anuncios
En el siguiente enlace tienes la descarga gratuita del código fuente (source code) 100% Open Source con un ejemplo de cómo mostrar esta ventana en una aplicación:
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A