Ver Mensaje Individual
  #9  
Antiguo 18-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.
Cita:
Empezado por alenbebote Ver Mensaje
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); // (verás TForm1 o el nombre de clase de tu form)
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  // si no se puede convertir...
    begin
      ShowMessage('Error en la nota ingresada'); // mostrar mensaje de error
      SetFocus  // devolver el foco al Edit
    end
  end
end;
Y pegalo debajo de la cabecera (donde antes estaban las tres líneas que eliminaste).

Saludos.

Edito: Mucha suerte
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 18-05-2012 a las 08:41:47.
Responder Con Cita