Classe TOpcaoMenu

DescriçãoHierarquiaCamposMétodosProperties

Unit

untKernelModulo

Declaração

type TOpcaoMenu = class(TComponent)

Descrição

Opção do Menu

Hierarquia

Visão Geral

Campos

Protected strEntidade: String;
Protected tabModulo: TTabSheet;
Protected pnlOpcao: TClipPanel;
Protected lblTitulo: TLabel;
Protected imgTitulo: TImage;
Protected mnuMenu: TMenuItem;

Métodos

Private function ObterDescricao: string; virtual; abstract;
Private procedure DefinirDescricao(const Value: string); virtual; abstract;
Protected function ObterTitulo : String;
Protected procedure SetarTitulo(const strTitulo : String);
Protected procedure Clique(Sender : TObject);
Public constructor Create(AOwner : TComponent;const strClasseEntidade : string; const strImagem : string); reintroduce; virtual;
Public destructor Destroy; override;
Public function CriarMenuRelacionado(const mnuPai : TMenuItem) : TMenuItem;
Public procedure AbrirEntidade;

Properties

Public property Entidade : string read strEntidade;
Public property Titulo : String read ObterTitulo write SetarTitulo;
Public property tabSheet : TTabSheet write tabModulo;
Public property Descricao : string read ObterDescricao write DefinirDescricao;
Public property ImagemTitulo : TImage read imgTitulo;

Descrição

Campos

Protected strEntidade: String;

Classe da Entidade

Protected tabModulo: TTabSheet;

Caso seja módulo, armazena a tabSheet referente

Protected pnlOpcao: TClipPanel;

Painel de Opções do Módulo

Protected lblTitulo: TLabel;

Label para o título do módulo

Protected imgTitulo: TImage;

Imagem para o título do módulo

Protected mnuMenu: TMenuItem;

Item de Menu Relacionado

Métodos

Private function ObterDescricao: string; virtual; abstract;

Retorna a descrição interna do módulo

Private procedure DefinirDescricao(const Value: string); virtual; abstract;

Define a descrição interna do módulo

Protected function ObterTitulo : String;

Retorna o título do módulo (caption do label)

Protected procedure SetarTitulo(const strTitulo : String);

Grava o título do módulo (caption do label)

Protected procedure Clique(Sender : TObject);

Evento ao clicar sobre o label do módulo

Public constructor Create(AOwner : TComponent;const strClasseEntidade : string; const strImagem : string); reintroduce; virtual;

Construtor da classe

Public destructor Destroy; override;

Destrutor da classe

Public function CriarMenuRelacionado(const mnuPai : TMenuItem) : TMenuItem;

Criar o Menu relacionado

Public procedure AbrirEntidade;

Abre a Entidade relacionada ao item de Menu

Properties

Public property Entidade : string read strEntidade;

Nome da entidade relacionada a opção

Public property Titulo : String read ObterTitulo write SetarTitulo;

Le e grava o título do módulo

Public property tabSheet : TTabSheet write tabModulo;

TabSheet a ser ativada

Public property Descricao : string read ObterDescricao write DefinirDescricao;

Descricao para a opção

Public property ImagemTitulo : TImage read imgTitulo;

Imagem ligada ao módulo