OnValidate não cai na exceção onde errei?

Delphi

22/09/2003

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;


Wgm8

Wgm8

Curtidas 0
POSTAR