Consulta Sobre Timer

[BetoAlonso]

Saludos

alguien sabe como crear un timer en tiempo de ejecución.

gracias

[ixMike]

Hola.

Pues declaras una variable tipo TTimer, lo creas cuando lo necesites con el método Create, le asignas un procedure al evento OnTimer, y cuando ya no lo necesites, pues lo liberas de la memoria mediante Destroy.

Un ejemplo:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, SysUtils, Forms, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure ProcTimer(Sender: TObject);
  end;

var
  Form1: TForm1;
  Reloj: TTimer;
  Contador: Integer;

implementation

{$R *.DFM}

procedure TForm1.ProcTimer(Sender: TObject);
begin
Inc(Contador);
Caption:=IntToStr(Contador);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Contador:=0;
Reloj:=TTimer.Create(Self); //Creamos el TTimer
Reloj.OnTimer:=ProcTimer;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Reloj.Destroy;  //Quitamos el TTimer de memoria... ¡¡¡que Windows ya chupa mucha !!!
end;

end.

Saludos