[Ama]

Здрасте спецы. Не подскажите, могу ли я в одной процедуре создать динамически ttimer и внутри етой же процы описать и назначить процу обработки ontimer. Или мож кто встречал как осуществить постепеное загорание кнопки?

[lmikle]

Можешь назначить, а само событие должно быть методм формы.

Код:

TForm1 = class(TForm)
...
  procedure MyTimerEvent(Sender : TObject);
  procedure CreateMyTimer;
end;

...

procedure TForm1.MyTimerEvent(Sender : TObject);
begin
  // Здесь делаем то, что надо по таймеру.
  // Sender - на самом деле ссылка на вызвывший таймер
end;

procedure TForm1.CreateMyTimer;
var
  ATimer : TTimer;
begin
  ATimer := TTimer.Create(Self);
  ATimer.Parent := Self;
  ATimer.OnTimer := MyTimerEvent;
  ATimer.Interval := 200;
  ATimer.Enabled := True;
end;

[Ama]

Ясно. Благодарю

[Kapitoshka438]

Только желательно переменную ATimer описать в классе формы

Код:

TForm1 = class(TForm)
...
  ATimer: TTimer;
  procedure MyTimerEvent(Sender : TObject);
  procedure CreateMyTimer;
end;

procedure TForm1.CreateMyTimer;
begin
  ATimer := TTimer.Create(Self);
  ATimer.Parent := Self;
  ATimer.OnTimer := MyTimerEvent;
  ATimer.Interval := 200;
  ATimer.Enabled := True;
end;

Иначе по завершении процедуры CreateMyTimer потеряется ссылка на него, и вы не сможете к нему легко обратиться, придется сначала его найти.