problemas con evento statechange del DataSource

[Joser]

buenas, nuevamente para pedir ayuda.
resulta que en una aplicacion de delphi 7 con db en sql server, tengo lo siguiente:
en el evento state change del data source habilito o no los botones y otros objetos de la siguiente forma:

Código Delphi [-]
if formusuarios <> nil then
  begin
    formusuarios.BTcancelar.enabled:= dsusuarios.state in [dsinsert, dsedit];
    formusuarios.BTnuevo.enabled:= dsusuarios.state = dsbrowse;
    .............
    .............
  end;

en el menu principal cuando llamo al formulario, con el cual tengo problemas, lo hago de la siguiente forma:

Código Delphi [-]
application.createform(tformusuarios, formusuarios);
datamodule.CLIENTusuarios.active:= true;
formusuarios.showmodal;

cuando cierro el formulario en el evento onclose coloco lo siguiente:

Código Delphi [-]
datamodule.CLIENusuarios.actve:= false;
formusuarios.release;
formusuarios:=nil;

y el problema es que cuando llamo al formulario a veces realiza el evento onstatechange del datasource y otras no.

si alguien me puede dar una mano con esto...

desde ya muchas gracias.

[Joser]

si no me supe expresar alguien me puede decir??
gracias por su tiempo...

[Casimiro Notevi]

Seguramente necesitamos ver más código o más explicaciones de tu parte, con esa información sólo podemos intentar adivinar.

[ecfisa]

Hola Joser.

Como comenta Casimiro, hay varios detalles que faltan conocer. Por tu código da la impresión que el TDataModule tiene acceso (incluye) a formusuarios, particularmente prefiero entablar la relación de modo inverso.

Quitando a formusuarios del comando uses de DataModule1, podrías hacer:

Código Delphi [-]
...
type
  Tformusuarios = class(TForm)
    BTCancelar: TButton;
    BTNuevo: TButton;
    procedure FormCreate(Sender: TObject);
    ... 
    procedure BTNuevoClick(Sender: TObject);
    procedure BTCancelarClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FNotifyEvent: TNotifyEvent;
    procedure dsusuariosChange(Sender: TObject);
  public
  end;

var
  formusuarios: Tformusuarios;

implementation  

uses Unit2, // DataModule1
     DB;

procedure Tformusuarios.dsusuariosChange(Sender: TObject);
begin
  with DataModule1 do
  begin
    BTCancelar.Enabled := dsusuarios.State in[dsEdit, dsInsert];
    BTNuevo.Enabled    := dsusuarios.State = dsBrowse;
  end
end;

procedure Tformusuarios.FormCreate(Sender: TObject);
begin
  with DataModule1 do
  begin
    FNotifyEvent             := dsusuarios.OnStateChange; 
    dsusuarios.OnStateChange := dsusuariosChange;
    CLIENTusuarios.active    := True;  
    BTCancelar.Enabled       := dsusuarios.State in[dsEdit, dsInsert];
    BTNuevo.Enabled          := dsusuarios.State = dsBrowse;
  end
end;

...

procedure Tformusuarios.BTNuevoClick(Sender: TObject);
begin
  DataModule1.CLIENTusuarios.Insert;
end;

procedure Tformusuarios.BTCancelarClick(Sender: TObject);
begin
  DataModule1.CLIENTusuarios.Cancel;
end;

procedure Tformusuarios.FormClose(Sender: TObject;  var Action: TCloseAction);
begin
   DataModule1.dsusuarios.OnStateChange := FNotifyEvent;
end;

...

end.

Saludos.

[Joser]

Gracias por su respuesta... lo probé y de 10!!! muchísimas gracias...
éxitos...