cannot focus a disabled or invisible window en Delphi 7 y Delphi 2010

[Neeruu]

Hola a todos...

Sin poder determinar porque en delphi 7 se comporta de una forma y delphi 2010 de otra, he modificado la función dejándola así:

Código Delphi [-]
Function TFrmLocalidades.ShowPopup(MyStatePopup:TStatePopup):Variant;
begin
  Case MyStatePopup of
    spNewRecord:begin
                  try
                     ModuloDatos.Localidad.DisableControl;    
                     ModuloDatos.Localidad.Append;
                  finally
                     ModuloDatos.Localidad.EnabledControl;
                  end;
                end;
    spEditRecord: begin
                             ....
                  end;
  end;

  if FrmLocalidades.ShowModal = mrOk then
    begin
      ....
    end
  else
    begin
      ....
    end;
end;

Saluda Atte Neeruu!!!