Quando evento AfterScroll de tabela é executado ?

[Jerfs]

Ao utilizar o evento AfterScroll de uma query ou tabela, qual é o momento que ela é executada?!

Editado Julho 8, 2009 por Jonathan Queiroz
Título editado conforme regra 3.6 (Jonathan)

[William - TI]

Vai Executar após você ir para trás de um registro ou ir para frente de um registro.

se tem tres registros ao ir do 1º para o 2º ele executa ao ir do 2º para o 3º ele executa e ao ir do 3º para o primeiro ele executa e assim sucesivamente.

resumindo casa vez que você mudar de um registro para outro ele executa.

[Jerfs]

Legal, é exatamente disso que eu preciso, porém, depois que coloquei a ação no AfterScroll o software está dando problemas assim que inicializa, parece que o componente que ele procura para executar não existe ainda.... por exemplo, toda vez que executa a rotina de afterscroll, ele precisa atualizar um checkBox que está dentro do formulario principal, mas o formulário principal não existe até o usuário executar o login. Consegui explicar?

[Daniel Sanches]

é o seguinte, nosso amigo Willian - TI está correto, porém se esqueceu de 1 detalhe ...

o AfterScrooll, também é executado na hora de abrir a tabela, pois o ponteiro é direcionado para o primeiro registro, acionando assim o evento (AfterScroll)...

provavelmente isso é o que ocorre contigo...

abraços !!!

[Jerfs]

conforme eu suspeitava, mas eae, como eu faço para que isso não seja executado quando a tabela é aberta?! alguém já passou por isso!? como solucionou?

[Daniel Sanches]

seria só você fazer uma checagem antes dos comandos tipo:

se o componente_tal existe

comandos....

entendeu ??

abraços !!!

[William - TI]

Uma simples sugestão é executar a pesquisa ou abriar a tabela no onActivate do form principal.

Abraços.

[Jerfs]

Gostei da sua sugestão Daniel, eu havia pensado nisso, mas não conheço o comando que verifica se o componente existe.. você conhece?

[William - TI]

esta funcão verifica se o formurario exite

function FormExiste(aberto: Tform): Boolean;
var 
I:Integer;
begin
    FormExiste := false; 
    for I := 0 to Screen.FormCount -1 do 
    if Screen.Forms[i] = aberto then 
    begin 
    FormExiste := true; 
    Break; 
    end 
end;

você pode Verificar se o formulario principal existe.. para verificar o componente eu tb desconhço para usar esta funcão basta

if FormExiste(NOMEDOFORMULARIO) then begin

[Daniel Sanches]

se for o form que está testando, o Willian já deu a dica ... agora se for um componente que irá testar, post aki q a gente continua o tópico !!!

abraços !!