Pessoal,

Crio alguns componentes TIBquery em tempo de execucao. No momento da criação
desses componentes, preciso colocar a ação ApplyUpdates no evento AfterPost
de cada componente TIBQuery criado.
Nao estou conseguindo chamar a rotina corretamente.

Estou fazendo dessa forma:

Tenho a variavel publica ao form da seguinte forma:
Query : TIBQuery;

Na cricao do componente TIBQuery, tenho a seguinte linha:

Query.AfterPost := DoOnAfterPost;

Tenho a funcao DoOnAfterPost:

procedure TdmTabelas.DoOnAfterPost(DataSet : TDataSet);
begin
   Query.ApplyUpdates(0);
end;

Isto nao funciona. Como faco essa chamada ao evento AfterPost e a outros
eventos através de procedures ou funcoes.

Obrigado

Tavares
"Tudo que nos acontece nos favorece se a gente não se aborrece e agradece."
(Frei Pascoal)

Responder a