Manejo de Msnpopup

[rgstuamigo]

Empezado por AzidRain

...
3.- En los módulos coloca un timer que cada x segundos vaya y con un select vea si hay mensajes sin leer en la tabla "mensajes", si es así mandas el aviso y das oportunidad de leerlo. Una vez leído, marcas el registro para que la próxima vez que se dispare el timer ya no vuelva a "avisar".

Bueno es una alternativa más la que nos comentas el amigo AzidRain y no quiero menospreciarla, al intentar de dar el siguiente comentario, de ninguna manera :
Bueno algo que le veo en contra es el hecho de estar cada "x" segundo haciendo un "SELECT" al base de dato, ésto me no me parece acertado, ya que estariamos saturando la red y el servidor demasiado, y peor aun si existen muchos usuarios conectados, si bien los servidores de BD de hoy en día son muy eficientes y potentes, pero no podemos (en mi opinion) darlos el lujo de lanzar cada x segundo una consulta nada más para hacer eso, pues no me perece muy óptimo, lo ideal para mí sería que cuando se inserte o edite un registro en la BD, el servidor de BD notifique de dicho cambio a la aplicación desde donde se ha hecho la insercion o Modificacion y es exactamente lo que logra el componente "IBEvents" atraves de algun Triggers
Es solo mi opinion personal...
Nuestro amigo Choclito es quien toma la decision de la manera que lo va a hacer?
Saludos...

[Choclito]

Gracias amigos del foro comentarles lo siguiente:
aplicando mdoevent les cuento que tengo los siguientes problemas:
Antes nuevamente decirles que lo que quiero es que en enfermeria registran a un paciente y quiero que en el modulo de caja me muestre un mensaje
Con los ejemplos de manejo de ibevent lo adecue a mi aplicacion pero tengo los siguientes problemas:
1.- En principio queria que el mensaje que se muestre en el modulo de caja sea con un msnpopup pero no daba nada, el codigo es el siguiente:

Código Delphi [-]

procedure TF_Menu_Caja.EventoEventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
If EventName = 'ALTA' then
  BEGIN
popup.Text:='Paciente dado de alta'; 
 popup.ShowPopUp;
//showmessage('paciene dado de alta');
//MsgBox ('Sistema S&S','Paciente dado de alta',MB_OK + MB_ICONINFORMATION);

  END;
end;

, luego para verificar si realmente trabaja el componente probe con un showmessage y dio el mensaje, pero luego como tengo una unidad para personalizar mis mensajes(esto gracias al foro tambien) entonces lo que hice es llamar al form del mensaje para mostrar el mensaje,el problema esta es que tengo varios botones que llaman al form del mensaje , el sistema me da error de debuger exception notification "el identificador de la ventana no es valido", donde esta el error
,el codigo es este:

Código PHP:

procedure TF_Menu_Caja.EventoEventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
If EventName = 'ALTA' then
  BEGIN

//showmessage('paciene dado de alta');
MsgBox ('Sistema S&S','Paciente dado de alta',MB_OK + MB_ICONINFORMATION);

  END;
end; 


Cual seria el error? o que soluciones le doy? Muchas gracias amigos por el aporte brindado, y sobre el anterior post lo probe sobre crear una tabla de mensajes y por ultimo creo q utilizare esa opcion, pero me gustaria explotar las ventajas de firebird, mil gracias

[Choclito]

aclarando cuando se da de alta al paciente en el modulo de enfermeria , con el siguiente codigo:

Código PHP:

procedure TF_Menu_Caja.EventoEventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
If EventName = 'ALTA' then
  BEGIN

MsgBox ('S&S','Paciente dado de alta',MB_OK + MB_ICONINFORMATION);

  END;
end; 


Me muestra el mensaje en el modulo de caja, pero cuando hago click en varios botones que llaman al MsgBox me da el error que anteriormente ya les comente, la verdad nose como arreglarlo,estare agradecido por los comentarios, mil gracias

[Choclito]

Disculpen que nuevamente consulte,que es lo que me faltaria hacer (codigo) para que me muestre o se ejecute el popup.showpopup pues llamando al showmessage comprobe que el ibevent funciona
Ahora creo q utilizando el msnpopup seria mas visual los mensajes es por eso que hago la consulta, mil gracias por las sugerecias brindadas amigos foreros

[rgstuamigo]

Pues me parece bastante raro que no se te muestre el "MSNPopUp", a mi me funciona perfecto.
En todo caso puedes probar con otros componentes por ejemplo el componente"Alert WinPupUp" u otro similar.
Tambien en éste hilo hay una version modificada del componente "WinAlert" para ponerle sonido.
Desde luego tambien puedes crearte una Ventana(formulario) propia para mostrar tus mensaje.
Saludos...

[Choclito]

Muchas gracias por la respuesta amigo rgstuamigo comentarte lo siguiente:
1.-En mi aplicacion tengo una unidad donde personalizo mis mensajes entonces para llamar a los mensajes llamo a una funcion de la unidad unitshowmesage
2.- NO me habia percatado que cuando llamo al popup.showpopup lo primero es que no me muestra nada y lo segundo es que cuando hago click en un boton que llama a la unidad de mensajes me sale el siguiente mensaje:
Debuger Exception Notification
El identificador de la ventana no es valido,Process stoped Use step o run to continue
Donde esta el error ?? que estaria haciendo mal?? estare muy agradecido por la ayuda que me brinden,mil gracias
Sera por eso que no me muestra el popup???

[rgstuamigo]

Sin ver tú código no se puede hacer nada... tan solo especular..
Saludos...