unit uViewMensaje;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, StdCtrls, pngimage, ExtCtrls, TBXDkPanels, AppEvnts,
  JvExControls, JvComponent, JvButton, JvNavigationPane;

type
  TfrViewMensaje = class(TfrViewBase)
    TBXAlignmentPanel1: TTBXAlignmentPanel;
    Image1: TImage;
    lblMensaje: TLabel;
    ApplicationEvents: TApplicationEvents;
    bClose: TJvNavIconButton;
    procedure ApplicationEventsException(Sender: TObject; E: Exception);
    procedure bCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frViewMensaje: TfrViewMensaje;

implementation

uses uDataModuleBase;

{$R *.dfm}

procedure TfrViewMensaje.ApplicationEventsException(Sender: TObject;
  E: Exception);
begin
  inherited;
  lblMensaje.Caption := E.Message;
  if not Visible then
    Visible := True;
end;

procedure TfrViewMensaje.bCloseClick(Sender: TObject);
begin
  inherited;
  Visible := False;
end;

end.