Ver Mensaje Individual
  #4  
Antiguo 29-03-2008
jacanche jacanche is offline
Miembro
 
Registrado: may 2003
Ubicación: Campeche,Campeche,Mexico
Posts: 137
Reputación: 22
jacanche Va por buen camino
Tambien puedes iterar a través de la lista de componentes de la forma, evaluar si es un TMaskEdit y hacer la validacion; algo como esto:

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  Index : Integer;

begin
CanClose := True;
    for Index := 0 to Componentcount-1 do
    begin
      if Components[Index] is TMaskEdit then
         begin
         if not Validar(TMaskEdit(Components[Index])) then //Validar es una funcion que devolveria verdadero si se cumple la validacion, falso en caso contrario
            begin
            ShowMessage('Error de Validación');
            CanClose := False;
            break;
            end;
         end;
    end;
end;
__________________
Saludos

Alfredo
Responder Con Cita