Если правильно понял, то
| Код |
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ExtCtrls;
type
TfrmMain = class(TForm)
btnCreateTimer: TButton;
btnDestroyTimer: TButton;
procedure btnCreateTimerClick(Sender: TObject);
procedure btnDestroyTimerClick(Sender: TObject);
private
{ Private declarations }
public
MyTimer:TTimer;//таймер
procedure MyTimerProcedure(Sender:TObject);//процедура таймера
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.MyTimerProcedure(Sender:TObject);
begin
ShowMessage('Timer Procedure');//для примера вывод сообщения
end;
procedure TfrmMain.btnCreateTimerClick(Sender: TObject);
begin
MyTimer:=TTimer.Create(frmMain);//создаем таймер - владелец форма
MyTimer.Interval:=3000;//задаем интервал
MyTimer.OnTimer:=MyTimerProcedure;//задаем ф-цию для таймера
MyTimer.Enabled:=true;//включаем таймер
btnCreateTimer.Enabled:=false;
btnDestroyTimer.Enabled:=true;
end;
procedure TfrmMain.btnDestroyTimerClick(Sender: TObject);
begin
MyTimer.Free;//уничтожаем таймер
btnCreateTimer.Enabled:=true;
btnDestroyTimer.Enabled:=false;
end;
end.
|
Ну и пример, собственно |