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:

Exemplo de botão de acesso das Ações Personalizadas

Este botão somente estará visível quando a tela acessada possuir Ações Personalizadas.

Instruções:

Para criar uma Ação Personalizada:

Localize a tela na qual 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 :

É necessário incluir a unit Classes no uses, caso contrário poderá ocorrer um erro ao executar o script pela primeira vez!

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;

Uma particularidade importante no funcionamento do VsScripter: a associação dos eventos deve sempre estar na ultima unit adicionada ao script, por exemplo, ao se adicionar um form no script, deve-se mover o código “MeuEvento.OnClick := 'NovoEventoOnClick';“ para este form, pois este agora é a ultima unit do script.