07.04.2006, 09:43
|
|
Администратор
|
|
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,564
Версия Delphi: Delphi 7
Репутация: выкл
|
|
Код:
type
TForm9 = class(TForm)
...
procedure TimerProc(Sender: TObject);
private
var
Form9: TForm9;
MyTimer: TTimer;
procedure TForm9.FormCreate(Sender: TObject);
begin
// создаем свой таймер
MyTimer:=TTimer.Create(Self);
MyTimer.Interval:=2000;
MyTimer.OnTimer:=TimerProc;
MyTimer.Enabled:=false;
end;
procedure TForm9.Button2Click(Sender: TObject);
begin
MyTimer.Enabled:=true;
end;
procedure TForm9.TimerProc(Sender: TObject);
begin
// выполняем какие-то действия
// ...
end;
procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
MyTimer.Free;
end;
|