Classe TfrmKernelFormularioErro

DescriçãoHierarquiaCamposMétodosProperties

Unit

Declaração

type TfrmKernelFormularioErro = class(TForm)

Descrição

Classe do formulário de exibição

Hierarquia

Visão Geral

Campos

Public imgErro: TImage;
Public btnEncerrar: TBitBtn;
Public edtErro: TMemo;
Public btnContinuar: TBitBtn;
Public btnRelatorioErro: TBitBtn;
Public btnDetalhes: TBitBtn;
Public edtDetalhes: TMemo;
Private bolDetalhes: Boolean;

Métodos

Public procedure btnDetalhesClick(Sender: TObject);
Public procedure FormShow(Sender: TObject);
Public procedure btnContinuarClick(Sender: TObject);
Public procedure btnEncerrarClick(Sender: TObject);
Private procedure DefinirErro(const strErro : string);
Private procedure DefinirDetalhes(const strDetalhe: String);
Public procedure ExibirDetalhes;
Public procedure OcultarDetalhes;

Properties

Public property Erro : string write DefinirErro;
Public property Detalhes : String write DefinirDetalhes;

Descrição

Campos

Public imgErro: TImage;
 
Public btnEncerrar: TBitBtn;
 
Public edtErro: TMemo;
 
Public btnContinuar: TBitBtn;
 
Public btnRelatorioErro: TBitBtn;
 
Public btnDetalhes: TBitBtn;
 
Public edtDetalhes: TMemo;
 
Private bolDetalhes: Boolean;

Exibindo detalhes?

Métodos

Public procedure btnDetalhesClick(Sender: TObject);
 
Public procedure FormShow(Sender: TObject);
 
Public procedure btnContinuarClick(Sender: TObject);
 
Public procedure btnEncerrarClick(Sender: TObject);
 
Private procedure DefinirErro(const strErro : string);

Define o erro no formulario

Private procedure DefinirDetalhes(const strDetalhe: String);

Define os detalhes

Public procedure ExibirDetalhes;

Exibe os detalhes do erro

Public procedure OcultarDetalhes;

Exibe os detrlhes do erro

Properties

Public property Erro : string write DefinirErro;

Definir o Erro da Mensagem

Public property Detalhes : String write DefinirDetalhes;

Define os detalhes do erro