Mensaje de error al estilo Messenger en VFP

Mensaje de error al estilo Messenger en VFP

En la partes de propiedades colocamos el ShowWindow en 2 (Formulario de nivel superior).

Ahora declaramos la API que vamos a utilizar y la colocamos en el evento Load del formulario tal como aparece abajo:

DECLARE integer SetWindowPos IN "user32";
  integer hwnd, integer hWndInsertAfter,; 
  integer x,integer y,integer cx,integer cy,integer wFlags

En el Init del formulario debemos publicar la variable ttop y le asignamos el valor 0

PUBLIC ttop
ttop=0
*- esto nos permitira abrir el formulario sin que nos afecte otra ventana.
=SetWindowPos(this.HWnd, -1, 0, 0, 0, 0, 1 + 2 )

En el evento Activate deberemos colocar el siguiente procedimiento, esto no permitira mover el formulario y colocarle el sonido el cual mostrara el mensaje.

*-- Ubico el formulario
tleft = (_screen.Width -this.Width)
ttlef = (tleft + this.Width)
this.Move (ttlef,ttop,this.Width,this.Height)
FOR i = 1 TO tleft  && muevo el form
  ttlef = ttlef - 1
  this.Move (ttlef,ttop,this.Width,this.Height)
  IF ttlef = tleft
    EXIT
  ENDIF 
ENDFOR

lcWaveFile =""
*-- defino la ruta del sonido a emitir 
lcWaveFile =  "sonido.wav"
DECLARE INTEGER PlaySound ;
IN WINMM.dll  ;
  STRING cWave, ;
  INTEGER nModule, ;
  INTEGER nType
PlaySound(lcWaveFile,0,1)

Una vez que hayas realizado todo esto el programa estará listo para funcionar.

En la parte inferior del Blog te estaré dejando el Link de descarga.