Fórum Timer em uma unit #334827

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    TEMPO:TTEMPORIZADOR;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   TEMPO:=TTEMPORIZADOR.Create(1000,Button1Click);//envio o intervalo e o metodo.
   TEMPO.REINICIAR;//inicio a contagem
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(´CLICK´);//Este metodo nao esta sendo executado.
end;

end.

unit UnitTEMPORIZADOR;

interface

uses
  QExtCtrls,Classes;
type
  TTEMPORIZADOR = class(TObject)
  private
   RELOGIO: TTimer;
  public
    constructor Create(INTERVALO: Integer; METODO: TNotifyEvent);
    procedure REINICIAR;
  end;


implementation

{
******************************** TTEMPORIZADOR *********************************
}
constructor TTEMPORIZADOR.Create(INTERVALO: Integer; METODO: TNotifyEvent);
begin
  RELOGIO:=TTimer.Create(nil);
  RELOGIO.Interval:=INTERVALO;
  RELOGIO.Enabled:=FALSE;
  RELOGIO.OnTimer:=METODO;//O TIMER FICA SABENDO QUAL METODO EXECUTAR
end;

procedure TTEMPORIZADOR.REINICIAR;
begin
  RELOGIO.ENABLED:=FALSE;
  RELOGIO.ENABLED:=TRUE;
end;
end.