Problema con Enable/DisableControls

[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:

Código Delphi [-]
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:

Código Delphi [-]
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