...
| Code Block | ||
|---|---|---|
| ||
uses
uFormValidacao;
var
form : TFormValidacao;
cAutorizacao : String;
begin
cAutorizacao := Trim(FFormPadraoRHCAGEDRESP.ValorNaTela('AUTORIZACAO'))
if (Length(cAutorizacao) < 7) then
begin
form := TFormValidacao.Create(nil);
try
form.edAutorizacao.Text := cAutorizacao;
if (form.Showmodal = mrok) then
FFormPadraoRHCAGEDRESP.ValorParaTela('AUTORIZACAO', form.edAutorizacao.Text)
else
FFormPadraoRHCAGEDRESP.AddErro(FFormPadraoRHCAGEDRESP.EditorDaColuna('EB_','AUTORIZACAO'),
'Autorização deve ter 7 dígitos');
finally
form.free;
end;
end;
end; |
Evidenciando boas práticas
Uso do ShowModal
Para o caso dos script´s para eventos em que se espera um resultado a partir da execução de um formulário, é uma boa prática que esse formulário seja aberto com ShowModal. Sem usar o ShowModal e sim o Show corre o risco do usuário clicar fora da tela e o formulário criado ser sobreposto causando dificuldade ao usuário.Uso do Free
Importante sempre usar o método “Free”, inclusive quando instanciado formulários. O não uso deixa objetos perdidos em memória que podem causar problemas na utilização do sistema.
Para facilitar ainda mais o entendimento, foi produzido um vídeo sobre este conteúdo. Para acessá-lo, utilize o link abaixo:
...