Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   parar el control... gracias (https://www.clubdelphi.com/foros/showthread.php?t=14763)

Seba_18 30-09-2004 00:39:35

parar el control... gracias
 
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 30-09-2004 01:22:41

oki
 
Cita:

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 30-09-2004 01:24:34

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 30-09-2004 01:25:41

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

Seba_18 30-09-2004 02:17:13

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 30-09-2004 02:56:36

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


La franja horaria es GMT +2. Ahora son las 20:01:05.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi