Muchas gracias coleguita, no tenia ni idea...
Agregue ese fragmento de codigo al mio y resulta muy bien, nada mas que lo puse abajito de la validacion de datos sino, de nada servia esa validacion, ahora, despues de la calidacion, al momento en que se da Aceptar, aparece el mensaje; si le das Aceptar, termina el proceso, y si se da cancelar (el otro boton pues) no hace nada de nada
jeje...
Ahora, lo que quisiera hacer es preguntar si se desea guardar la orden o capturar otra, en caso que digan GUARDAR, se compelta el prceso tal y como lo tengo ahora, pero si se da CAPTURAR OTRO que se mande llamar de nuevo la forma de captura...
Como le hago?
Otra cosa, como puedo modificar las leyendas de los botones para que en vez que em salga si/no o Aceptar/Cancelar, pueda ponerle: Guardar/Capturar Otra dentro de este mismo mensaje?
Bueno ya con eso resolveria mi mistico problema, gracias por la ayuda al coleguita Caral y ojala tambien puedan ayudarme en esto... le spongo el codigo tal y como lo modifique:
procedure TFormaOrdenesServicio.BotonAceptarClick(Sender: TObject);
begin
PanelDatos.SetFocus;
if ValidarDatos then begin
if MessageBox(Handle,
PChar('Desea Guardar la Orden y Cerrar la Ventana' + #13#10 +
' o Desea Capturar Otra Orden de Servicio'),
PChar('Confirmacion de Captura'),
MB_OKCANCEL + MB_DEFBUTTON1 + MB_APPLMODAL) = IDOK then
try
//
FuenteDatos.DataSet.UpdateRecord;
xValorId := FuenteDatos.DataSet.FieldByName(cCamposId).Value;
//
//GrabarBitacora;
dbConsulta.Requery;
//
if FuenteDatos.DataSet.RecordCount > 1 then begin
FuenteDatos.DataSet.Locate(cCamposId, xValorId, CaseInsensitive] );
end;
//
HabilitarDatos(false);
HabilitarBotonAceptar(false);
HabilitarBotonProceso(true);
ESH.Hide;
Etiqueta13.Hide;
Campo13.Hide;
Etiqueta14.Hide;
Campo14.Hide;
ESS.Hide;
Etiqueta15.Hide;
Campo15.Hide;
Etiqueta16.Hide;
Campo16.Hide;
EOS.Hide;
Etiqueta17.Hide;
Campo17.Hide;
Etiqueta18.Hide;
Campo18.Hide;
except on E:Exception do
MessageDlg('Verifique su Información, ' +
'ya que esta Provocando el Siguiente Error: ' + #13 + #13 +
E.Message, mtError, [mbOk], 0);
end;
end;
end;
Gracias de antemano a todos los foreros.