Foi incluída a possibilidade de criação de Ações Personalizadas nas telas do sistema. Estas ações serão desenvolvidas com o uso do VsScripter e serão acessas através do botão de Eventos de Script (que somente ficará visível quando existirem ações criadas).
Instruções:
Como realizar a customização de um evento:
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 :
É 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.