Hola que tal, de verdad que no se que estoy haciendo mal, pero ya llevo unos cuantos dias con este problema, tambien un colega ya le hecho un ojo y no me supo decir que es lo que pasa, solo que esta ben raro, bueno, al buscar un reporte ejecuto el siguiente proc.
Código Delphi
[-]
procedure TfrmExpediente.LimpiarCheckBox;
var Check: TcheckBox;
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[i] is TCheckBox then
begin
Check := TCheckBox(Components[i]);
Check.Enabled := False;
end
end;
después sigo ejecutando otros procs. para que ya casi al final, ejecutar otro que hace lo siguiente:
Código Delphi
[-]
procedure TfrmExpediente.Validaciones3E;
var Check: TcheckBox;
I: Integer;
begin
if esto = 'aesto' then
for I := 0 to ComponentCount - 1 do
if Components[i] is TCheckBox then
begin
Check := TCheckBox(Components[i]);
if Check.tag = 501 then
Check.Enabled := True;
end;
end;
Lo curioso es que empece a seguirles el rastro y agregue esta linea en los 2 procs:
Código Delphi
[-]
ListBox1.Items.Add(Components[i].Name);
En el primer Proc. me llena el listbox con el nombre de los componentes y en el segundo solo les deja el espacio en blanco sin nombre, creo que el problema viene de esto pero ya no se que es lo que esta pasando, si alguien me puede ayudar le estare muy agradecido, gracias.
Vicente López.