Pausar ttimer

Question

como posso dar uma pausa em um objeto ttimer ???...

Motta · Answer

timer1.enabled := false;...

Daia · Answer

Isso eu tb estava precisando... mas como fa�o pra que depois de trancar.. ele volte a funcionar de novo, mas num outro intervalo de tempo?...

Motta · Answer

Como assim ? N�o entendi.Voc� pode tentar um comando chamado delay (creio que seja isto) que espera um n� de segundos) e a� dar enable novamente.Mas no TTmimer tem uma prop. Interval (tempo em milisegundos) assim o evento do ttimer s� ser� executado neste intervalo, creio que n�o precise de tratar esta espera.Qq d�vida fale....

Daia · Answer

Vou explicar melhor...No meu form principal tenho um ttimer q atualiza um grid que exibe dados de uma tabela... O intervalo do ttimer � 20000... Tenho um outro form de Cadastro e l� exclui um registro... e quero q assim q eu exclua o registro o ttimer dispare e atualize o grid que est� no form principal... e assim q ele fez isso... volte ao normal o intervalo dele q esta definido que � 20000...Vou colocar o c�digo abaixo:procedure TFCadastro.btnExcluirClick(Sender: TObject);begin  qryWork.Close;  qryWork.Open;  if trim(edtcRefer.text) = �� then begin     ShowMessage(�Informe a Refer�ncia!�);     edtcRefer.SetFocus;     Abort;  end;  if qryWork.Eof then     ShowMessage(�N�o h� dados para excluir!�)  else  if MessageDlg(�Excluir esta Refer�ncia?�, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin     qryWork.SQL.Text := �Delete           � +                         �from             � +                         �  DesenvolvimentoModelo � +                         �Where            � +                         �  cRefer      =  � + QuotedStr(edtcRefer.Text );     qryWork.ExecSQL;     qryWork.SQL.Text := �commit�;     qryWork.ExecSQL;     ShowMessage(�Refer�ncia exclu�da com sucesso!�);     FPrincipal.tempo.Interval := 1000;     FPrincipal.tempo.Enabled := False;     edtcRefer.SetFocus;  end;  edtcRefer.Text := ��;...

Motta · Answer

Apenas dispare o evento do TTimer qdo excluir o registro

Exemplo

Crie um novo projeto coloque um timer e um bot�o ajuste o interval do timer para 60000

O click executa o timer.

----------------------



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  showmessage(�fiz�);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1Timer(Sender);
end;

end.

Daia · Answer

Funcionou legal!!!!!!!!Bem assim q eu queria!!Muito Obrigada!!!...

Daia · Answer

estou novamente com problema... meu sistema est� trancando usando a fun��o!!...

Daia · Answer

??? algu�m ... please!...

F�rum Pausar ttimer #198166