Hola.
Cita:
Empezado por alenbebote
Ya hice la seleccion de los 6 edits y en onexit los selecciones con el unico boton que tengo button1, le inserto el codigo pero al momento de correrlo no puedo cambiar de casilla y me marca un error, gracias por la ayuda
|
No no no no. Hacé lo siguiente:
Primero que nada borrá desde el editor toda linea que haga referencia a
Edit1Exit, así como el código asociado al procedimiento, es decir cabecera de procedimiento y las líneas que que la siguen hasta el
end; (incluído). También en el
Object Inspector, el contenido de la casilla del evento
OnExit de todos los Edits. Es decir, dejá todo como estaba antes.
Seleccioná los seis Edits (te vas a dar cuenta por que tienen una marca en gris en cada una de sus esquinas).
Ya no tenes que entrar ni tocar mas el formulario, el evento
OnExit no tiene nada que ver con el botón, así que tampoco toques nada allí.
Dirigite al
Object Inspector, si no está visible hace
View ->
Object Inspector. En él verás dos pestañas, una de ellas dice
Events, hacé click en ella y veras una lista con los eventos de los Edits.
Sobre el que dice
OnExit hace doble click. Ya estarás en el editor y con la cabecera creada como te comente en el mensaje
#6:
Código Delphi
[-]
procedure TForm1.Edit1Exit(Sender: TObject); begin
end;
Borra las tres líneas que están debajo de la cabecera (desde el
begin hasta el
end).
Seleccioná y copiá el siguiente trozo de código tál cuál como está:
Código Delphi
[-]
var
cd: Double;
begin
with Sender as TEdit do
begin
if not TryStrToFloat(Text, cd) then begin
ShowMessage('Error en la nota ingresada'); SetFocus end
end
end;
Y pegalo debajo de la cabecera (donde antes estaban las tres líneas que eliminaste).
Saludos.
Edito: Mucha suerte