F�rum Ajuda com TNotifyEvent, por favor #533167

30/09/2015

Em um formul�rio eu tenho um espa�o para exibir o preview de um relat�rio e no topo do form, tenho um frame com campos para filtro dos dados. A fun��o AplicaFiltro est� no form, mas eu preciso cham�-la de dentro do frame, ent�o criei decidi que � hora de usar TNotifyEvent, visto que eu ainda n�o aprendi a trabalhar com esta classe e isto me faz muita falta. A necessidade tamb�m � a oportunidade.

Tenho ent�o o form:

type 
  TFrRelLancamentosF = class(TFrRelModeloF) 
    FrFiltroLanF: TFrFiltroLanF; 
    //(...) 
  private 
    { Private declarations } 
    //(...) 
    procedure AplicarFiltro; override; 
    procedure AoSelecionar(Sender: TObject); 
  end;

E dentro de FrFiltroLanF eu tenho um frame TFrSelecionaRegistrosF:

type 
  TFrSelecionaRegistrosF = class(TFrMultiLayoutControlF) 
    FrLst_Cad: TFrDBGridF; 
    FrLst_Sel: TFrDBGridF; 
  public 
    { Public declarations } 
    procedure Selecionar; 
    procedure Remover; 
    var 
      AoRemover_1, 
      AoSelecionar_1: TNotifyEvent; 
  end;

Eu atribuo os m�todos no Create do form:

procedure TFrRelLancamentosF.FormCreate(Sender: TObject); 
begin 
  inherited; 
  with FrFiltroLanF do 
  begin 
    FrSelecionaRegistrosF_Cliente.AoRemover_1 := AoSelecionar; 
    FrSelecionaRegistrosF_Cliente.AoRemover_1 := AoSelecionar; 
  end; 
end;

e a implementa��o do m�todo AoSelecionar:

procedure TFrRelLancamentosF.AoSelecionar(Sender: TObject); 
begin 
  AplicarFiltro; 
end;

A chamada ao M�todo evento est� aqui:

procedure TFrSelecionaRegistrosF.Selecionar; 
begin 
  if cds_Cadastro.RecordCount > 0 then 
  begin 
    CopiaRegistro(cds_Cadastro, cds_Selecionados, 
                  cds_Selecionados.Locate(NomeCampo_ChavePrimaria, cds_Cadastro.FieldByName(NomeCampo_ChavePrimaria).AsInteger, []), 
                  True); 
    if Assigned(AoSelecionar_1) //Retorna False 
    then AoSelecionar_1(Self); //e por isto esta linha n�o � executada 
  end;

Ent�o, ao verificar se o m�todo est� assinado, False � retornado, mesmo no Create do form o m�todo AoSelecionar ter sido atribu�do aos TNotifyEvent.
Algu�m sabe trabalhar com TNotifyEvents pode ajudar, por gentiliza?

Ahh, Note que os TNotifyEvent est�o declarados como vari�veis p�blicas.
Modifiquei a declara��o delas para se tornarem propriedades:

property AoRemover_1: TNotifyEvent read FAoRemover_1 write FAoRemover_1; 
    property AoSelecionar_1: TNotifyEvent read FAoSelecionar_1 write FAoSelecionar_1;

Mesmo resultado.

Multi Ltda

Curtir t�pico

+ 0

Responder