Динамическое создание TTimer и его уничтожение

[exyl]

Доброго времени суток. Около 4-х лет не занимался программированием (да и перед этим был самоучкой, у которого с теорией все достаточно плохо), а тут понадобилась мелочевка: в отдельном pas модуле есть такая функция по имитированию "человеческой" задержки перехода по ссылке

function DelayedLinkNavigation(const Delay_ms, DelayPercentLimit: integer; const Link: widestring; WebBrowser: TWebBrowser): boolean;
var
  Timer: TTimer;

  procedure TimerEvent(Sender: TObject);
    begin
      WebBrowser.Navigate(Link);
      (Sender as TTimer).Free;
    end;

begin
  Timer:=TTimer.Create(nil);
  Timer.Enabled:=false;
  Timer.Interval:=PercentRandomize(Delay_ms, DelayPercentLimit);
  Timer.OnTimer:=TimerEvent;
  Timer.Enabled:=true;
end;

т.е. создается таймер, задается задержка, после задержки происходит переход по линку, таймер уничтожается. Вроде просто, но, естессно, ругается на несовместимость типов в строке Timer.OnTimer:=TimerEvent; Отсюда вопрос: как пофиксить?

[Аватар]

Там должна быть не просто процедура, а метод объекта.

[exyl]

Абсолютно точный, но настолько же бесполезный для меня ответ истинного программиста. Тогда пойду по цепочке вопросов: а как мне сделать из этой процедуры метод объекта? И как тогда туда передавать веббраузер и ссылку для перехода? Можно ли это сделать, не делая их глобальными переменными?

[evg_m]

простой но кривой

TmyTimer =class(TTimer)
private
procedure EventTimer(sender: TObject); //как мне сделать из этой процедуры метод объекта?
FWeb: TBrowser;// И как тогда туда передавать веббраузер
.... ; //и ссылку для перехода?
end;

procedure TmyTimer.EventTimer(sender: TObject);
begin
  Fweb..........;
end;

procedure ....
var
  t: TMytimer;
begin
  t:=Tmytimer.Create();
....
  t.Fweb:=...;
  t.ontimer:=t.EventTimer;  
  t.enable:=true;
  t.Free;// ни в коем случае, таймер еще не отработал
end;

и в результате потерянная память (таймер создали НО никто его не может уничтожить)

==================

EventTimer должна быть у объекта который сможет помнить про запущенный таймер до СРАБАТЫВАНИЯ.
Видимо это и должен быть WebBrowser или же ЕГО форма.
а в этом случае и DelayedLinkNvigation разумно сделать методом.

TmyWeb =...
private
  procedure EventTime(sender: TObject);
public
  procedure DelayedLinkNavigation(const Delay_ms, DelayPercentLimit: integer; const Link: widestring);
end;

TmyTimer=class(TTimer)
private
  Flink: WideString;
end;

procedure TmyWeb.DelayedLinkNavigation(const Delay_ms, DelayPercentLimit: integer; const Link: widestring);
var
  ft: TTMyTimer;
begin
  ft:=TMyTimer.Create(self);
  ...
  ft.OnTimer:=EventTime;
  ft.Flink:=link; 
  ft.Enable:=rue;//мы здесь НЕ ЖДЕМ срабатывания !!! это не Sleep!!!
//запустили и пошли дальше
end;

procedure TmyWeb.EventTime(sender: TObject);
begin
// а вот нас известили(event) что время прошло
  (sender as TTimer).Enable:=false;//остановили именно тот таймер что нам сообщил что ЕГО время прошло
 link:=(sender as TmyTimer).Flink;// и можем припомнить ссылку
 (sender as TMyTimer).Free;// и очистили память(уничтожили наш и только наш таймер)
.... //и что сделать со ссылкой в нашем браузере
end;

главное не забывать что Timer Event приходит тогда и только тогда когда все остальное выполнено.

[exyl]

Большое спасибо за безвозмездную трату времени на обстоятельный ответ, суть увидел, основное вспомнил.