Page Comparison

...

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:

   Code Block
   {$FORM TForm1, Unit1.sfm} uses Classes, Graphics, Controls, Forms, Dialogs

...

1. , 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;

\uD83D\uDCCB Artigos relacionados

...