...
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:
Code Block | ||
---|---|---|
| ||
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:
Code Block | ||
---|---|---|
| ||
{$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; |
...