Unit para Procedures e Funções

[xandyhg]

Boa Tarde galera!!!

 

Estou com uma dúvida enorme e não encontro como fazer essa Unit em lugar nenhum... Gostaria de tratar o estado dos botões Salvar, Alterar, Excluir, Fechar, Novo, através do evento OnStateChange dos DataSource... Para não ter que digitar o mesmo código em todos os DataSource, fiz o código abaixo em uma Unit separada... porém o código não funciona...

unit U_Procedures;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Menus, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids,  Mask, DB, ComCtrls;procedure EstadoBotoes(Sender: TObject);implementationuses U_DM_Padrao, U_Cad_Padrao;procedure EstadoBotoes(Sender: TObject);begin  F_Cad_Padrao.icoNovo.Enabled := (Sender as TDataSource).State in [dsBrowse];  F_Cad_Padrao.icoSalvar.Enabled := (Sender as TDataSource).State in [dsEdit, dsInsert];  F_Cad_Padrao.icoCancelar.Enabled := F_Cad_Padrao.icoSalvar.Enabled;  F_Cad_Padrao.icoAlterar.Enabled := (F_Cad_Padrao.icoNovo.Enabled) and not ((Sender as TDataSource).DataSet.IsEmpty);  F_Cad_Padrao.icoExcluir.Enabled := F_Cad_Padrao.icoAlterar.Enabled;  F_Cad_Padrao.icoFechar.Enabled := F_Cad_Padrao.icoNovo.Enabled;end;end.

Após isso, vou no primeiro DataSource que é o DsBairro, e chamo a procedure EstadoBotoes da forma abaixo:

procedure TF_DM_Padrao.DsBairroStateChange(Sender: TObject);begin  U_Procedures.EstadoBotoes;end;

E não funciona....

[LNW]

@xandyhg

 

 

Normalmente a gente passa o objeto:

U_Procedures.EstadoBotoes(DsBairro);

[ ]'s