Динамически созданный таймер не может остановиться

[JUDAS]

Господа гуру делфи, не гоните на автора а лучше помогите ему понять как правильно писать на Делфи.
-------------
Автору.
Чё то я не понимаю твою логику к решению задачи.
Если используется один и тот же обработчик в нескольких таймерах, и в обработчике валится сам таймер, то нужно так и писать

procedure TForm1.TimerProc(Sender: TObject);
begin
 //    FreeAndNil(Timer);

  FreeAndNil(TTimer(Sender));
  Inc(Q);
  Self.Caption := IntToStr(Q);
end;
При таком раскладе постоянно отрабатывает TimerProc. Почему таймер не "умирает"?

а не тулить переменную


--------
и вообще, в твоём случае лучше писать вот так

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TTimer.Create(nil) do
  begin
    Interval := 100;
    OnTimer := TimerProc;
     //  Enabled := True; это не нужно, таймер по умолчанию и так True
  end;  
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to 1 do
  begin
  //  Button1.OnClick(Self); // при клике в обработчик передаётся Button1
    Button1.OnClick(Button1); 
  end;
end;

procedure TForm1.TimerProc(Sender: TObject);
begin
  FreeAndNil(TTimer(Sender))
  Inc(Q);
  Caption := IntToStr(Q);
end;

[ResourceSpace]

Сообщение от Shouldercannon

Доброго времени суток!
Есть
...
Почему таймер не "умирает"?

Потому что где бы у вас ни была объявлена переменная Timer - при нескольких нажатиях кнопки подряд все более старые затираются.

А цель-то какая вообще?

Как это вижу я. Ошибка номер один:

procedure TForm1.Button1Click(Sender: TObject);
var Timer: TTimer;
begin
Timer:=TTimer.Create(Self);
Timer.Interval := 100;
Timer.OnTimer := TimerProc;
Timer.Enabled := True;
end;

Ошибка номер два:

procedure TForm1.TimerProc(Sender: TObject);
begin
TTimer(Sender).Enabled:=False; // На всякий случай, бывает полезным
FreeAndNil(TTimer(Sender)); // Но я бы делал: TTimer(Sender).Free;
Inc(Q);
Self.Caption := IntToStr(Q); // И не надо никаких Self
end;

[JUDAS]

Timer:=TTimer.Create(Self);

не ошибка. Вопрос, как создать таймер внутри своего класса который не базируетс на предке TComponent?

[Aliens_wolfs]

Автотору я думаю достатоно дали ответов, он уже наверно понял в чем его основная ошибка во FreeAndNil(Timer) а нужно FreeAndNil(TTimer(Sender)) либо TTimer(Sender).free

[ResourceSpace]

Лучше придерживаться (и приучиваться) чтоб у всех динамически создаваемых объектов был правильный владелец.

Вопрос, как создать таймер внутри своего класса который не базируетс на предке TComponent?

Тут есть TForm и всё происходит в нём. Значит владелец должен быть он. А прочие ситуации надо отдельно думать. Бывает что вообще отдельный поток лучше.

Button1.OnClick(Self);

Это не заметил. Третья ошибка. Но тут бы я рекомендовал:

Button1.Click;

[min@y™]

Вопрос, как создать таймер внутри своего класса который не базируетс на предке TComponent?

да никак.

Timer:=TTimer.Create(nil); // а можно и application, только смысл?

главное - освободить память из-под него, когда он не нужен становится.

[Аватар]

Что за прикол убивать себя в своем событии? Даже если отработает не правильно это. Хотя бы потому, что после убиения будет работать код мертвого объекта

[JUDAS]

Сообщение от min@y™

да никак.

создаю вот так,
xxx := TTimer.Create(nil)
убиваю
xxx.Free;
работает по сей день