Hola, un saludo a todos...
Les comento que tengo una Unit que utilizo para guardar los procedimientos y funciones que son comunes a varios formularios de la aplicacion.
El hecho es que estoy tratando de mover a esta Unit (que la he llamado UGlobal), un procedimiento que tengo en el Formulario que me permite pasar a Enabled:=False todos los Edit que encuentra en el Formulario.
En el Formulario, el procedimiento que tengo es el siguiente: (Funciona bien)
Código:
procedure TfrmGrupoUsuario.InactivarCampo;
var
i: Word;
begin
//*** Desactiva los campos del formulario
for i := 0 to self.ComponentCount - 1 do
begin
if (self.Components[i] is TEdit) then
TEdit(self.Components[i]).Enabled := False;
end;
end;
Cuando coloco el procedimiento anterior en la Unit y lo llamo desde el Formulario, arroja un error de Access Violation, sin mas detalles, intente pasarle el Name del Formulario como parametro, pero sigue el mismo error.
Pregunta: Que estoy haciendo mal ??
Código:
procedure InactivarCampo(NameForm:TForm);
var
i: Word;
begin
//*** Desactiva los campos del formulario
for i := 0 to NameForm.ComponentCount - 1 do
begin
if (NameForm.Components[i] is TEdit) then
TEdit(NameForm.Components[i]).Enabled := False;
end;
end;
Gracias anticipadas por sus comentarios...