parar el control... gracias

[Seba_18]

Buenas, tengo un problema, en mi programa en un momento hago aparecer un showmessage avisando de algo que sucedio, pero despues de aceptar el showmessage sigue con la ejecucion y yo necesito que se frena para que el usuario corrija algo, como podria hacer??, desde ya muchas gracias.

[AGAG4]

Empezado por Seba_18

Buenas, tengo un problema, en mi programa en un momento hago aparecer un showmessage avisando de algo que sucedio, pero despues de aceptar el showmessage sigue con la ejecucion y yo necesito que se frena para que el usuario corrija algo, como podria hacer??, desde ya muchas gracias.

Intentalo con Abort;

Saludos.

[vic_ia]

hola....

creo que tu pregunta es algo ambigua... para un proceso ¿en donde?.... sin mas datos te podria decir que en algunos procesos despues de mostrar el mensaje de aviso puedes llamar al procedimiento Abort, para lanzar una excepcion silenciosa y cancelar lo que estas haciendo pero igual la respuesta es muy ambigua mientras no des mas datos....

saludos...

[vic_ia]

oopsss!!! se me adelantaron por uno minuto... tendre que ser mas rapido la proxima vez....

[Seba_18]

mi problema es que tengo una serie de edits y un boton, al clickear el boton los textos de los edit se ingresan en una tabla, pero en uno de los edit yo me fijo si el dato que ingresa es valido, en caso contrario hago aparecer un showmessage que avise que el dato no es valido, pero luego en ves de tomar el control ese edit para que el usuario pueda cambiar lo que escribio, termina la ejecucion. entonces yo quiero que cuando aparesca el showmessage me tome el control el edit para que el usuario ponga otra cosa. se entiende?, gracias por contestar

[roman]

Algo como:

Código Delphi [-]
Ingresar(Edit1.Text, Tabla);
Ingresar(Edit2.Text, Tabla);

if not DatoValido(Edit3.Text) then
begin
  Edit3.SetFocus;
  raise Exception.Create('Usted ha puesto un valor incorrecto. Ponga atención y corríjalo');
end;

{ Si el valor es incorrecto esto no se ejecutará }
Ingresar(Edit3.Text, Tabla); 
Ingresar(Edit4.Text, Tabla);

// Saludos