Hola a todos,
Resulta que por medio de este codigo capturo un error de la base de datos:
Código Delphi
[-]
procedure TwPaciente.CapturaError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
if E.ClassNameIs('EFIBInterBaseError') then
case EFIBError(E).IBErrorCode of
335544347 : begin
E.Message := 'El campo NOMBRE o puede estar vacio.';
dbNombre.SetFocus;
end;
335544665 : begin
E.Message := 'CEDULA ya existe.';
dbNombre.SetFocus;
end;
end;
end;
Mi pregunta es:
Como reemplazo la parte E.Message por MessageDlg esto debido a que deseo algo mas personalizado que ese cuadro de dialogo sencillo que aparece.