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:


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 :D:D!!!
end;

end.


Saludos ;)