fala GTO... consegui fazer funcionar a bagaça aki! :lol: hehehehe
o código ficou assim:
procedure TF_GrProd.DBECodExit(Sender: TObject);
var
argumento:string;
i:integer;
begin
argumento:=DBECod.Text;
if DBECod.Text='' then
begin
beep;
MessageDlg('Digite um Valor Váido.', mtError, [mbOK], 0);
DBECod.SetFocus;
end//if principal
else
begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select GR_CODIGO from GR_PROD where GR_CODIGO =' + argumento + ';');
Try
IBQuery1.Active:=True;
if not IBQuery1.IsEmpty then
begin
beep;
MessageDlg('Código já cadastrado.', mtError, [mbOK], 0);
DBECod.SetFocus;
end;//not if
finally
IBQuery1.Active:=False;
end; //try+finally
end;//else if principal
end;//procedure
:P
porem, eis que surge outro problema... heh
quando tento colocar uma máscara no DBECod ele dá erro se tentar sair sem digitar nada ele dá erro na máscara e não aparece a menssagem de "Digite um Valor Váido."... oq faço para "burlar" esse erro do maskedit?
antes de mais nada vlw a ajuda que vc tá dando ae!