F�rum uso do evento onActivate em TDI #3122

28/02/2009

Usando o mesmo exemplo enviando no chamado anterior, preciso fazer com que o c�digo do onActivate seja executado. No c�digo fonte da classe TDI, existe o comando: PageControl.ActivePage.OnEnter := OnActivate; na procedure TTDI.CriarFormulario(Classe: TFormClass); Que � executado sempre que a nova aba � criada. Preciso de algo similar para que o onactivate tamb�m seja executado quando ocorrer a mudan�a de aba. Espero ter sido claro. No aguardo Nirlan

Nirlan Fundao

Curtir t�pico

+ 0

Responder

Posts

28/02/2009

Rodrigo Mour�o

Ol� amigo !!!

Estamos trabalhando so seu chamado, pe�o apenas que aguarde at� postarmos a resposta !!!

abs !!!!

Atenciosamente,
Rodrigo Carreiro Mour�o
Borland Instructor Certified
Coordenador da Consultoria em Delphi

Responder

Gostei + 0

28/02/2009

Rodrigo Mour�o

Ol� Nirlan !!

A classe TDI j� est� configurada para fazer oque voc� quer, mas h� um por�m. Repare em que evento do PAgeControl o programador da classe fez o Method Pointer: OnEnter!!

PageControl.ActivePage.OnEnter := OnActivate;

Ou seja, para que o OnActive dos seus forms sejam chamados o evento OnEnter do PageCOntrol tem que ser disparado. Para que o OnEnter do Page seja disparado o Form que foi aberto nele te que ter pelo menos um componetes para receber foco !!

Bem a classe n�o esta errada, mas tamb�m n�o esta 100% certa. Para que o OnActive possa ser chamado sempre idependente de ter ou n�o controle no form fa�a o seguinte, altere o codigo acima pelo seguinte c�digo:

PageControl.ActivePage.OnShow := OnActivate;

Assim sempre que trocar de aba o OnActive ser� invocado !!

Uma grande abra�o e at� a pr�xima !!!!

Atenciosamente,
Rodrigo Carreiro Mour�o
Borland Instructor Certified
Coordenador da Consultoria em Delphi

Responder

Gostei + 0

01/03/2009

Nirlan Fundao

entendi perfeitamente a sua explica��o, s� que existe um detalhe que voc� n�o percebeu. A troca do "PageControl.ActivePage.OnEnter := OnActivate" por "PageControl.ActivePage.OnShow := OnActivate" est� dentro da fun��o "procedure TTDI.CriarFormulario(Classe: TFormClass)" que s� � chamada quando uma nova aba/form � criada. No caso da simples troca de abas, esta fun��o n�o � chamada. No aguardo Nirlan

Responder

Gostei + 0

01/03/2009

Rodrigo Mour�o

Ol� Nirlan !!! Acho que voc� n�o conhece mothod pointer rsrsrsrs. O fato do c�digo estar no CiarFormulario n�o significa que ele s� ser� executado quando for criado, pelo contr�rio. Ali estamos setando o ponteiro de um metodo em outro metodo para que ocorra um efeito cascata, o OnShow do tab chama o OnActive do Form. Uma vez setado o ponteiro esse "efeito cascata" vai acontecer ate que o objeto seja destruido!! Abaixo segue um video demonstando o funcionamento. Ele est� propositalmente sem �udio !! Abs !!!

[#VIDEO-80#]

Responder

Gostei + 0

02/03/2009

Nirlan Fundao

como voc� pode observar o activate � disparado quando se troca de aba, mas n�o � disparado quando ela � criada. Eu preciso que ocorra nos dois casos. Assim eu passei a utilizar: "PageControl.ActivePage.OnEnter := OnActivate;" e "PageControl.ActivePage.OnShow := OnActivate;" Podemos fechar este chamado e farei novos testes. Voc� conhece alguma outra alternativa para o uso do FDI, que seja mais completa que essa classe que estou utilizando ? abra�os Nirlan

Responder

Gostei + 0

02/03/2009

Rodrigo Mour�o

Exatamente Nirlan !!

Para que ocorra nos dois casos fa�a dois method pointer, � o �nico modo !!

Quanto a conhecer alguma classe mais completa no que esta eui n�o conhe�o!!

Abs !!!

Atenciosamente,
Rodrigo Carreiro Mour�o
Borland Instructor Certified
Coordenador da Consultoria em Delphi

Responder

Gostei + 0