OnValidate não cai na exceção onde errei?
procedure TDM_Modelo.TabCategorSig_CategValidate(Sender: TField);
begin
if DSCategorState in [dsEdit, dsInsert] then
if TabCategorConf.FindKey([TabCategorSIG_CATEG]) then
begin
F_Categ.EditSIG_CATEG.SetFocus;
raise Exception.Create(´Sigla da categoria duplicado´#10+
´Click no botão ´Localiza´ em caso de dúvida´);
end;
end;
begin
if DSCategorState in [dsEdit, dsInsert] then
if TabCategorConf.FindKey([TabCategorSIG_CATEG]) then
begin
F_Categ.EditSIG_CATEG.SetFocus;
raise Exception.Create(´Sigla da categoria duplicado´#10+
´Click no botão ´Localiza´ em caso de dúvida´);
end;
end;
Wgm8
Curtidas 0