Ações personalizadas nas telas de manutenções utilizando o VsScripter

O sistema permite a criação de Ações Personalizadas nas telas do sistema utilizando-se scripts desenvolvidos no VsScripter. Estas ações poderão ser acessadas através do botão de Eventos de Script conforme figura abaixo:

Instruções:

Como criar uma Ação Personalizada:

• Localize a tela que onde deseja criar o evento;

• Abra esta tela e localize no menu “Eventos via Script” o sub-menu “Eventos de Componentes”;

• Ao executar o comando, uma tela para edição será apresentada, conforme figura abaixo:

  

• Dentro do editor do script, digite o código desejado. Segue um exemplo simples :

uses
  Classes;
  
procedure NovoEventoOnClick(Sender: TObject);
begin
  inherited(Sender, 'OnClick');
  ShowMessage('Teste');
end;
                                                   
var
  MeuEvento : TMenuItem;                                    
begin
  MeuEvento := <FNomeDaTela>.AddMenuEvento('Novo Evento');
  MeuEvento.OnClick := 'NovoEventoOnClick';
end;              

Neste exemplo, foi criado um novo evento cujo título será: “Novo Evento”. Em seguida foi associado o método NovoEventoOnClick no evento OnClick do mesmo. Será dentro deste método que as ações desejadas serão codificadas;