Atenção : se tiver dentro de um pageControl e este obj tiver algo no beforeInit então não vai funcionar a classe de marcação.
Defina a propriedade "tag" com um dos valores abaixo.
Tags com valores entre 8000 e 8999 representam campos que só serão validados se tiverem algum valor definido. Caso contrário, serão ignorados. Esses campos serão destacados com uma tag azul.
- 8000 - Data " Obrigatório somente se tiver algum valor definido "
Tags com valores entre 9000 e 9999 indicam campos obrigatórios, que devem sempre ser preenchidos. Esses campos serão destacados com uma tag laranja.
- 9901 - Obrigatório mas sem validação
- 9902 - Obrigatório -> Email
- 9903 - Obrigatório -> CPF
- 9904 - Obrigatório -> CNPJ
- 9905 - Obrigatório - CEP
- 9906 - Obrigatório - Data
- 9907 - Obrigatório - Numero maior que zero
- 9908 - Obrigatório - Data Hora
Caso tenha algum problema na validação então ira exibir a mensagem definida na propriedade "hint" do componente.
Exemplo de mensagem.
- * Campo "Nome Completo" não foi preenchido corretamente.
Código: Selecionar todos
procedure TfrmServicosContrato.UniFormShow(Sender: TObject);
begin
inherited;
TErp.Template.validacaoMarcaObjetos(Self);
end;Código: Selecionar todos
if Not TErp.Template.validacaoDadosEstaoCorretos(Self) then Exit;