ActiveDelphi

[rrgotardo]

Boa tarde, estou precisando fazer um refresh em uma tabela a cada 1 minuto, para verificar se entrou novas nfes, mas não consegui. estava fazendo da seguinte maneira:
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ExtCtrls, Grids, DBGrids, StdCtrls;

type
TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
DBGrid1: TDBGrid;
Timer1: TTimer;
DataSource1: TDataSource;
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
hora: TDate;
end;

var
Form2: TForm2;

implementation

uses database;

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
hora := time+ strtotime('00:01:00');
Edit2.Text := TimeToStr(hora);
CustomerData.ADOQuery1.close;
CustomerData.ADOQuery1.open;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
Var
days: array[1..7] of string;
begin
Edit1.text := TimeToStr(Time);
if Time = hora then
Button1.OnClick;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
hora := time+ strtotime('00:01:00');
Edit2.Text := TimeToStr(hora);
CustomerData.ADOQuery1.close;
CustomerData.ADOQuery1.open;
end;

end.


Se alguem souber como posso fazer ou ter uma dica.
Obrigado.

[harleydk]

chapa, creio que se fizer isto no evento OnTimer do Timer1 vai funcionar.

[rrgotardo]

Deu certo era isso mesmo. Eu estava colocando no Timer1.Interval = 1000 ai a cada segundo atualizava, e estava travando. Obrigdo.

[harleydk]

massa, agora coloca concluido no topico.