Form de registro (rellenar todos los edit)

[gontxalo]

Hola.
Tengo un Form, (vcl) el cual es de registro de usuarios. Tengo varias cajas de Edit (nombre, apellidos, e-mail ........).
Como puedo hacer para que si el usuario que se registra no rellena alguno de las cajas edit, que al dar al botón de registrar, salte otro form que diga por ejemplo: rellene todos los campos.

Gracias

[[Lepe]]

Para aquellos cajas que sean obligatorias ponle en la propiedad tag un 1 (por ejemplo). Despues realiza un bucle con Form1.Components[i] y si el tag es 1, y la caja está vacia (edit1.text='') añades el Hint a un String que se mostrará despues en el ShowMessage.

El mensaje final, mostrará "Por favor, rellene los siguientes campos: Nombre direccion"

Un saludo

[jachguate]

Algo menos elaborado, pero mas sencillo si sos novato es:

Código Delphi [-]
Function TForm1.ValidarDatos : Boolean;
Var
  s : Mensaje;

Begin
  s := '';
  if Trim(EditNombre.Text) = '' Then
    s := s + '[Nombre] ';
  if Trim(EditApellido.Text) = '' Then
    s := s + '[Apellido] ';
  ....
  if s <> '' Then
    ShowMessage('Error: Debe rellenar los siguientes campos: ' + s);
  result := s = '';
end;

//luego simplemente llamas a la función ValidarDatos

Procedure TForm1.BtnGrabarClick(Sender : TObject);

Begin
  if ValidarDatos Then
    Graba;
end;

Hasta luego.

[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.