Cambiar CommandTimeOut a todos los adoquery
 

Saludos compañeros...

Hoy se me ha encargado la tarea de cambiar el CommandTimeOut de varias consultas de un proyecto que no es mío...
Pues bueno que quien lo ha hecho no conoce los TDataModule y en cada formulario ha puesto hasta 32 TADOQuerys y para ahorrarme la tarea de buscar uno por uno en los 29 formularios he hecho lo siguiente:

Aprovechando que se crean todos los formularios al inicio de la aplicación pues en el OnShow del formulario principal he puesto las siguientes líneas:

Código Delphi [-]
  for i := 0 to Screen.FormCount - 1 do
          for j := 0 to Screen.Forms[i].ComponentCount - 1 do
            if Screen.Forms[i].Components[j].ClassName = 'TADOQuery'       then
              TADOQuery(Screen.Forms[i].Components[j]).CommandTimeOut:=       3000;

Me ha servido, pero de pronto me cayó la duda ¿si hubiera un DataModule también lo encuentra con Screen.Forms?...

Bueno pues que les parece mi solución, ¿es la correcta? No sé por qué pero por algpun momento sentí que no era correcto lo que hacía.

Gracias de antemano por sus comentarios

Gracias