Que tal
yo tengo el mismo problema todavía... pero por motivos de tiempo tuve que solucionarlo no como yo hubiera querido, en fin, espero que alguien aporte alguna solución...
yo que yo hice fue lo siguiente
Código Delphi
[-]
try
post
except on E:Exception then
ShowMessage('Error tipo: '+E.ClassName+', con el mensaje: '+E.Message);
end;
en fin, a mi tampoco me gusta, pero así tuve que hacerlo....
recuerda que requieres
dbtables para reconocer a
EDBEngineError
con tu ejemplo sería algo así como:
Código Delphi
[-]
if (pass.Text='') or (pass2.Text='') or (nom.Text='') or (userr.Text='') then begin
guardar.enabled:=false;
application.messagebox('No Puede Haber Campos Vacios','Validacion De Datos',mb_ok+mb_iconerror);
end else begin
try
tuser.Post;
tuser.First;
pass2.Text:='';
except on E:Exception do begin
application.messagebox('Este Usuario Ya Existe','Validacion De Usuario',mb_ok+mb_iconerror);
cancelarClick(Sender);
end; end; end;