Form de registro (rellenar todos los edit)

[fidel]

Hola:

Puedes poner en el evento OnExit del primer edit que quieres que no quede vacío una información general que diga algo así como:

If edit1.text := '' then ShowMessage('No se puede dejar vacio, ponga algún dato');

y conectar este procedimiento en el evento OnExit de todos los demás edits que no quieres que queden vacíos.

Un saludo.

[vtdeleon]

saludos

Código Delphi [-]
procedure cualquiera;
var
  n:integer;
begin
  for n:= 0 to componentcount-1 do
    if components[n] is tedit then
      if tedit(components[n]).Text = '' then 
         ShowMessage('No se puede dejar vacio, ponga algún dato');
end;

[gontxalo]

Hola
Gracias.
Lo dejo para más adelante.
Creo que me he adelantado.
No tengo las bases de datos...... hechas ni nada y creo que tiene que estar primero funcionando el botón con la orden grabar a datos antes de ponerle lo de las cajas vacías.

Estoy estudiando las bases de datos así que guardo estos mensajes para cuando este en funcionamiento poder ponerlo.

[jachguate]

Si es una aplicación de bases de datos, basta poner la propiedad Required de los TField a true.

hasta luego.

[gontxalo]

Gracias.
Lo he probado de todas las maneras en form nuevo para probar y me funciona bien.
Gracias a todos.