Delphi dicas

Ajuste

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...

por : Leandro Silva