Ver Mensaje Individual
  #3  
Antiguo 18-09-2012
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.462
Reputación: 21
newtron Va camino a la fama
Hola.

Imagino que tendrás en el formulario un botón para aceptar los datos antes de continuar el proceso. En el caso de ser edits podrías hacer algo parecido a esto.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
f: Integer;
begin
  inherited;
  for f:=0 to ComponentCount-1 do begin
    if Components[f] is TEdit then begin
      if (Components[f] as TEdit).Text = '' then begin
        Showmessage('No se ha indicado el valor del campo');
        (Components[f] as TEdit).SetFocus;
        exit;
      end;
    end;
  end;
end;

Saludos

Edito: Se me ha adelantado Casimiro
__________________
Be water my friend.
Responder Con Cita