AddErro e AddWarning - Projetos Personalizados

A funcionalidade de utilização dos métodos AddErro e AddWarning que já existem em scripts que estejam associados a formulários (Link para o arquivo) agora foi estendida aos Projetos Personalizados.

 Instruções

Como utilizar estes recursos em projetos personalizados:

1. Crie seu projeto personalizado;

2. Adicione na cláusula Uses a unit: uListErro;

3. Os seguintes métodos se tornarão disponíveis: uListErro.AddErro, uListErro.AddWarning, uListErro.MostraErros e uListErro.ExcluirErros;

4. Segue um exemplo simples de utilização:

   {$FORM TForm1, Unit1.sfm} uses Classes, Graphics, Controls, Forms, Dialogs, uListErro; begin uListErro.ExcluirErros; //Assume-se que edtNome seja um TEdit que foi inserido no formulário if edtNome.Text = '' then uListErro.AddErro(edtNome, 'O campo nome é de preenchimento obrigatório!'); // o primeiro parametro de AddWarning e AddErro pode ser passado como nil quando // não existir relação com algum componente de tela uListErro.AddWarning(nil, 'Texto de aviso!!'); uListErro.MostraErros; end;

 Artigos relacionados