Page Comparison

...

• Selecionar o formulário e alterar as propriedades:

1. Name: frmLookUp

2. Caption: Exemplo

...

1. TVsEditLookUpVsSvripter

2. Position: poScreenCenter

• Selecionar o componente TVsEditLookUpVsScripter e alterar as propriedades:

1. Name: edtLookUp

2. LabelCaption: Busca Cidade

3. - LookUpOptions -> RelativoCodigo: CIDADE

4. - LookUpOptions -> RelativoDescricao: NOME

5. - LookUpOptions -> RelativoTableManut: CIDADE

6. - LookUpOptions -> RelativoTableName: CIDADE

Para o formulário ficar com uma aparência mais ajustada ao componente que estamos testando, ajuste o tamanho do mesmo e do componente para ficarem parecidos com a imagem abaixo:

...

Salve a “unit1” com o nome uFrmEditLookup. Para salvar, utilize o atalho CTRL+S ou no menu “File Save”.

Para a uPrinc, segue o código do “script” que irá gerenciar a execução do formulário:

uses
   // para acessar as definições do formulário
   uFrmEditLookup;

var
   // declarando o objeto form, do tipo TfrmLookUp
   form: TfrmLookUp;

begin
   // criando o objeto form que será o formulário padrão do script
   form := TfrmLookUp.Create(nil);

   try
      // gerenciando o ModalResult do formulário
      if form.ShowModal = MrOk then
      begin
        // se houver algum processamento inerente ao ModalResult = mrOk,
        // deverá ser colocado aqui
      end;   
   finally
      // destruindo o formulário
      form.free;
   end;
end;

Para este exemplo, não será necessário desenvolver nenhum “script” para funcionamento do componente. Assim, o código padrão gerado já será suficiente:

{$FORM TfrmLookUp, uFrmEditLookup.sfm}
uses
   // units necessárias para o funcionamento do formulário. Todas colocadas automaticamente
   uVsLookupVsScripter, Classes, Graphics, Controls, Forms, Dialogs;

begin
    // qualquer código extra para este “script” deve ser colocado aqui
end;

...