Problema con Enable/DisableControls

[kamuspik]

Hola,

estoy teniendo un problema a la hora de usar las instrucciones DisableControls y EnableControls.

Por ejemplo, si tengo una conexión abierta con una TADOQuery y quiero cambiar la SQL si no uso Disable/EnableControls funciona correctamente, pero produce un molesto parpadeo. Para evitar ese parpadeo he utilizado las instrucciones Disable/EnableControls. El problema es que el Grid no muestra datos, aparecen las filas vacías pero te puedes mover en ellas.

Con este simple código también pasa:

ADOQuery1.Open;

try
ADOQuery1.DisableControls;
ADOQuery1.SQL.Text := 'SELECT TOP 100 * FROM LALBARAN WHERE linea > 1';
ADOQuery1.Open;
finally
ADOQuery1.EnableControls;
end;

Para confundirme más todavía he comprobado que si en vez de poner estas líneas en FormCreate las pongo en el evento que genera al pulsarse un botón funciona correctamente. ¿Qué estoy haciendo mal?

Muchas gracias por vuestro tiempo,

un saludo ;)

[Caral]

Hola
Puede ser el evento ya que crea el form y a la vez la conexion con el query.
Usa el evento FormShow que se comportara igual que el boton, osea, ya estara creado.
Saludos

[Delphius]

El problema se debe a que durante la creación del Form es cuando se crean sus controles. Naturalmente si tu intentas deshabilitar/habilitar los controles en esta etapa vas a detectar un molesto parpadeo debido a que todavía no se han terminado de crear y visualizar todos los controles, o en el peor de los casos muy posiblemente alguno que otro AccessViolation o alguna otra excepción.

Hay que evaluar otras alternativas para lo que buscas realizar. En ocasiones basta con emplear otro evento más adecuado; pero dependiendo de las circunstancias y las necesidades se deberá evaluar otras maneras de llevar el diseño del sistema.

Saludos,

[kamuspik]

Hola,

gracias por las respuestas, si uso otro evento no falla. El problema es que tengo que utilizar ese evento. Voy a dedicarle un poco de tiempo a pensar sobre el problema a ver si se me ocurre alguna solución alternativa.

Un saludo.

[Caral]

Hola
Por que usar el evento oncreate del form pudiendo usar el onShow.
No entiendo la necesidad ?.
Saludos

[kamuspik]

Hola,

mi problema surge de la necesidad de cambiar unos componentes por otros dentro de una aplicación ya desarrollada, entonces lo ideal es tocar el menor código posible, y claro...utiliza para todos los casos el evento OnCreate. Y el caso es que en la primera ejecución por el problema del evento OnCreate mi nuevo componente no se comporta correctamente, en el resto de casos parece que no hay problema.
Estoy pensando en realizar algun tipo de comprobación para tratar este primer caso pero no quiero que pierda eficiencia para el resto de casos.

Un saludo ;)

[kamuspik]

Hola,

he conseguido solucionar el problema verificando si el Grid asociado al DataSet tiene la propiedad Showing a True. De esta forma cuando el programa se encuentre dentro del código de OnCreate y todavía no se este mostrando el Grid no ejecutará la instrucción DisableControls.

Código para obtener el Grid asociado al DataSet:

function GetGridAsociado: TDBGrid;
var
I: integer;
begin
Result := nil;

for I := 0 to Owner.ComponentCount - 1 do
if Owner.Components[I] is TDBGrid then
if TDBGrid(Owner.Components[I]).DataSource <> nil then
if TDBGrid(Owner.Components[I]).DataSource.DataSet = Self then
begin
Result := TDBGrid(Owner.Components[I]);
Break;
end;
end;

Código para comprobar si se está mostrando el Grid:

if GetGridAsociado.Showing then
Self.DisableControls;

No dudéis en realizar cualquier comentario sobre el código, muchas gracias por las respuestas, me han hecho ir en la dirección correcta.

Un saludo ;)