Buscar por:

Ajuste

Código

Acessando a mesma tabela concorrente com outra estação ou outro objeto Query,Table, etc

a) Crie procedure para uso no evento OnActivate

procedure TForm1.FormRefresh(Sender: TObject);

begin

Table1.Refresh;

...

TableN.Refresh;

end;

b) No evento OnActivate do formulário acrescente a linha

Application.OnActivate := FormRefresh;

c) No evento OnShow do formulário acrescente a linha

FormRefresh(Sender);

d) No evento OnAfterPost de cada objeto TTable acrescente as linhas

Table.FlushBuffers;

FormRefresh(Self);

Acrópole Delphi® - Cultura on line...