[Neeruu]

Hola a todos...

Tengo este fragmento de código en un formulario.

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

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

Esto se llama desde otra ventana de la siguiente forma:

Código Delphi [-]
    With FrmLocalidades do
      Result := ShowPopup(MyStatePopup);

En el OnNewRecord del DataSet Localidad (En un modulo de datos) tengo este codigo:

Código SQL [-]
  DataSet.FieldByName('LOCALIDAD').FocusControl;

Bueno la cuestion es que cuando ejecuto la function con MyStatePopup = spNewRecord, se ejecuta el append y el evento OnNewRecord (del Modulo de datos), en este se ejecuta la linea que hace un focuscontrol y es aca donde se produce el error de:

Código SQL [-]
cannot focus a disabled or invisible window

Todo esto es en delphi 2010, pero esto en delphi 7 anda y no tira ninguna exception...

Tendrían alguna idea de lo que puede estar pasando??? Es delphi 2010???
Alguna sugerencia???

Saluda Atte Neeruu!!!