Ver Mensaje Individual
  #19  
Antiguo 05-10-2012
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.474
Reputación: 21
newtron Va camino a la fama
Cita:
Empezado por daragor Ver Mensaje
[newtron], en el procedimiento que dejaste mas arriba, podrias explicarme o agregar como se usa el tab de los componentes q necesito sean obligatorios?
No es el tab, es la propiedad que se llama tag del componente, es una propiedad que se deja para que puedas meter cualquier valor y preguntar después por él de forma que si por ejemplo pones en el tag del edit que quieras poner como obligatorio un 1 podrías poner éste código.

Código Delphi [-]
  for f:=0 to ComponentCount-1 do begin
     if Components[f] is TEdit then begin
        if ((Components[f] as TEdit).Text = '') and ((Components[f] as TEdit).Tag = 1) then begin
          ShowMessage('¡ATENCION! el siguiente valor no está indicado');
          (Components[f] as TEdit).setfocus;
          exit;
       end;
     end;
  end;

Saludos
__________________
Be water my friend.
Responder Con Cita