Тема: TTimer
Показать сообщение отдельно
  #6  
Старый 13.07.2018, 12:01
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Тогда вот так наращивание массива должно быть
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
 SetLength(x, i+1);

 x[i]:= TTimer.Create(Self);
 x[i].Interval:= 10000;
 x[i].Enabled:= true;
 x[i].OnTimer:= myproc;

 Inc(i);
end;
а обработчик возможен такой
Код:
procedure TForm1.myproc(Sender: TObject);
begin
(Sender as TTimer).Enabled:= false;
end;
Ответить с цитированием