Manejo de Msnpopup

[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...

[Choclito]

Tienes razon amigo, este es el codigo en firebird en el triger donde llamo al evento ALTA si cumple la condicion

Código SQL [-]


CREATE OR ALTER trigger evento_reg_internacion for registro_internacion
active after update position 0
AS
begin
   if ((new.diagnostico_egreso<>'TRASLADO A OTRA CAMA Y SALA')and(new.tipo_alta is not null)) then
  post_event 'ALTA';
end

Tengo un componente evento (tmdoevent) y un popup(msnpopup) en el formulario menu_caja y en el evento onshow tengo este codigo:

Código Delphi [-]
procedure TF_Menu_Caja.FormShow(Sender: TObject);
begin
xpmenu1.Active:=true;
 jvstatusbar1.Panels[1].Text:='Usuario: '+f_usuarios.loginn;
 fd.UnLoad;
 fd.AddFormClass(tf_pres_caja,true);
evento.Events.Add('ALTA');
evento.RegisterEvents;
end;

tambien probe en el evento oncreate pero tampoco pasaba nada, el siguiente codigo:

Código Delphi [-]
evento.Events.Add('ALTA');
evento.RegisterEvents;

luego en el evento onevent del componente evento tengo el siguiente codigo:

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'; // MostrarCitas;  // = refresh
popup.ShowPopUp;
//showmessage('paciene dado de alta');
//MsgBox ('Sistema S&S','Paciente dado de alta',MB_OK + MB_ICONEXCLAMATION);
{Application.MessageBox(
  pchar(  'Paciente dado de alta'),
  pchar(' Sistema S&S '),
  MB_OK+MB_ICONWARNING+MB_SYSTEMMODAL); }
  END;
end;

ademas tengo una unidad donde personalizo mis mensajes en mi aplicacion el codigo es el siguiente:

Código Delphi [-]
unit UnitShowMessage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, LMDControl, LMDBaseControl, LMDBaseGraphicButton,
  LMDCustomSpeedButton, LMDSpeedButton,Buttons, ExtCtrls,
  LMDCustomButton, LMDButton, ImgList, JvGradient;

type
  TFrmMessageBox = class(TForm)
    LTitulo: TLabel;
    LMensaje: TLabel;
    BAceptar: TLMDButton;
    BCancelar: TLMDButton;
    PBMovible: TPaintBox;
    BReintentar: TLMDButton;
    PBIcono: TPaintBox;
    ILIcono: TImageList;
    JvGradient1: TJvGradient;
    procedure FormShow(Sender: TObject);
    procedure PBMovibleMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure PBMovibleMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PBMovibleMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure PBIconoPaint(Sender: TObject);


  private
    { Private declarations }
    RatonPulsado: Boolean;
    Punto: TPoint;

  public
    { Public declarations }
  end;
  function Maximo (a,b:integer):integer;
      FUNCTION MsgBox (Titulo, Mensaje: String; Flags: DWord):integer;
var
  FrmMessageBox: TFrmMessageBox;
  IndiceImagen:integer;
implementation
    
{$R *.dfm}


procedure TFrmMessageBox.FormShow(Sender: TObject);
begin
RatonPulsado := False;
end;

procedure TFrmMessageBox.PBMovibleMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 IF Button = mbLeft THEN
  BEGIN
    RatonPulsado := True;
    Punto.x := x;
    Punto.y := y;
  END;
end;
function Maximo(a,b:integer):integer;
begin
if a>b then
Maximo:=a
else
Maximo:=b;

end;

FUNCTION MsgBox (Titulo, Mensaje: String; Flags: DWord): Integer;
CONST
  PosLeft = 112;
  PosWidth = 320;
  LeftBotones = 25;
  SepBotones = 7;
VAR
  Botones, Icono: Word;
  AlineacionDerecha: Boolean;
  ResModal: TModalResult;
  IdBotonPulsado: Integer;

BEGIN
  { Comenzamos separando de la variable Flags los botones, el icono
    así como si el texto del mensaje está alineado o no a la derecha }

  Botones := Flags AND $F;
  Icono := Flags AND $F0;
  AlineacionDerecha := (Flags AND $F0000) = $80000;
 IndiceImagen := 0;  { Un valor inicial no perjudicial }

  WITH FrmMessageBox DO
  BEGIN
    Caption := Titulo;
    LTitulo.AutoSize := False;
    LMensaje.AutoSize := False;
    LTitulo.Caption := Titulo;
    LTitulo.Left := LeftBotones;
    LTitulo.Width := 2 *(PosWidth DIV 3);
    LTitulo.AutoSize := True;
    LMensaje.Caption := Mensaje;
    LMensaje.Left := PosLeft-15;
    LMensaje.Width := PosWidth;
    LMensaje.Alignment := taLeftJustify;
    LMensaje.AutoSize := True;
    LMensaje.Top := LTitulo.Top + LTitulo.Height + 15;
    BAceptar.Top := LMensaje.Top + Maximo(LMensaje.Height, PBIcono.Height);
    BCancelar.Top := BAceptar.Top;
    BReintentar.Top := BAceptar.Top;
    ClientHeight := BAceptar.Top + BAceptar.Height + 20;

    { Ahora pasamos a arreglar los botones en función del que nos han pedido }

    CASE Botones OF
      MB_OK:  { Sólo debe estar visible el de 'Aceptar' y centrado }
      BEGIN
        BAceptar.Visible := True;
        BCancelar.Visible := False;
       BReintentar.Visible := False;

       // BAceptar.Kind := bkOK;
        BAceptar.Caption := 'Aceptar';

        BAceptar.Left := Width DIV 2 - BAceptar.Width DIV 3;
        BAceptar.Width:=90;
      END;

      MB_OKCANCEL:  { Visibles 'Aceptar' y 'Cancelar', centrados }
      BEGIN
        BAceptar.Visible := True;
        BCancelar.Visible := True;
       BReintentar.Visible := False;

      //  BAceptar.Kind := bkOK;
        BAceptar.Caption := ' Aceptar';
       // BCancelar.Kind := bkCancel;
        BCancelar.Caption := ' Cancelar';

        BAceptar.Left := Width DIV 3 - BAceptar.Width DIV 3;
        BCancelar.Left := BAceptar.Left + BAceptar.Width + SepBotones;
      END;

      MB_RETRYCANCEL:  { Visibles 'Reintentar' y 'Cancelar', centrados }
      BEGIN
        BAceptar.Visible := False;
        BCancelar.Visible := True;
       BReintentar.Visible := True;

        //BCancelar.Kind := bkCancel;
        BCancelar.Caption := ' Cancelar';
       // BReintentar.Kind := bkRetry;
        BReintentar.Caption := ' Reintentar';

        BReintentar.Left := Width DIV 3 - BReintentar.Width DIV 3;
        BCancelar.Left := BReintentar.Left + BReintentar.Width + SepBotones;
      END;

      MB_YESNO:  { De nuevo visibles 'Aceptar' y 'Cancelar', centrados }
      BEGIN
        BAceptar.Visible := True;
        BCancelar.Visible := True;
       BReintentar.Visible := False;

       // BAceptar.Kind := bkYes;
        BAceptar.Caption := 'Si';
       // BCancelar.Kind := bkNo;
        BCancelar.Caption := 'No';

        BAceptar.Left := 112;
        BAceptar.Width:=49;
        BCancelar.Left := 232;
      END;

      MB_YESNOCANCEL:  { Todos los botones deben ser visibles }
      BEGIN
        BAceptar.Visible := True;
        BCancelar.Visible := True;
       BReintentar.Visible := True;

       // BAceptar.Kind := bkYes;
        BAceptar.Caption := ' Sí';
      //  BCancelar.Kind := bkNo;
        BCancelar.Caption := ' No';
      //  BReintentar.Kind := bkCancel;
       BReintentar.Caption := ' Cancelar';

        BAceptar.Left := LeftBotones;
        BCancelar.Left := BAceptar.Left + BAceptar.Width + SepBotones;
        BReintentar.Left := BCancelar.Left + BCancelar.Width + SepBotones;
      END;

    END;

    { Ahora vamos a averiguar qué icono nos han pedido para dibujarlo }

   CASE Icono OF
      MB_ICONINFORMATION: { MB_ICONASTERISK }
        IndiceImagen := 1;

      MB_ICONERROR:       { MB_ICONHAND, MB_ICONSTOP}
        IndiceImagen := 2;

      MB_ICONEXCLAMATION: { MB_ICONWARNING }
        IndiceImagen := 3;

      MB_ICONQUESTION:
        IndiceImagen := 4;
    END;

    IF AlineacionDerecha THEN LMensaje.Alignment := taRightJustify;
  END;

  //MessageBeep(Icono);
  { Esto es un extra ;-) Llama a una función del
                         API que emite un sonido estándar de Windows,
                         con lo que lo hacemos más parecido al MessageBox
                         de verdad :-) }

  ResModal := FrmMessageBox.ShowModal;
  IdBotonPulsado := 0;

  { Por último, convertimos los valores de ModalResult a las constantes
    definidas por Windows como respuesta de MessageBox }

  CASE ResModal OF
    mrOk:     IdBotonPulsado := IDOK;
    mrCancel: IdBotonPulsado := IDCANCEL;
    mrAbort:  IdBotonPulsado := IDABORT;
    mrRetry:  IdBotonPulsado := IDRETRY;
    mrIgnore: IdBotonPulsado := IDIGNORE;
    mrYes:    IdBotonPulsado := IDYES;
    mrNo :    IdBotonPulsado := IDNO;
  END;

  MsgBox := IdBotonPulsado;
END;
procedure TFrmMessageBox.PBMovibleMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
 IF RatonPulsado THEN
    SetBounds(x - Punto.x + Left, y - Punto.y + Top, Width, Height);
end;

procedure TFrmMessageBox.PBMovibleMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 IF Button = mbLeft THEN RatonPulsado := False;
end;

procedure TFrmMessageBox.PBIconoPaint(Sender: TObject);
begin
  ILIcono.Draw(PBIcono.Canvas, 0, 0, IndiceImagen);

end;

end.

que como veran solo llamo a la funcion MsgBox de esta unidad para mostrar mi mensaje personalizado.
El formulario asociado a esta unidad lo creo cuando se ejecuta la aplicacion,
Ahora me puse un boton en el formulario menu_caja para llamar al popup y me da bien.
El evento se genera en otro modulo(menu_enfermeria) que esta en otro ambiente que una vez que guarden los datos del paciente, quisiera que me muestre los datos de este paciente en el menu_caja con el popup pero no me muestra,probe con un showmessage y da bien , probe con la unidad q tengo para mis mensajes personalizados y da, pero como en el menu_caja tengo un boton para salir del sistema el cual llama a la funcion msgbox me da el error que anteriormente te comente.
Particularmente nose como hacer para que me muestre en el popup,creo q seria mas visual para el usuario,agradesco comentarios amigo o amigos