Архив форумов ЦИТФорума

[wasabi]

Добрый всем вечер!
Возникла несложная проблема, но никак не могу найти ответ. В Delphi динамически создаю объект (в частности, таймер TTimer). Хочу определить для него собственную процедуру, которая будет выполняться по событию onTimer. И никак не могу это сделать. Подскажите, кто знает.

[Ujen_osh]

//Привожу пример:

type
TForm1 = class(TForm)
procedure Timer1Timer(Sender: TObject); //определенная самостоятельно процедура
…

var
Timer1: TTimer;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1:=TTimer.Create(self); //создаем объект
with Timer1 do // определяем свойства
begin
Parent:=Form1;
Timer1.Interval:=100;
Timer1.OnTimer:=Timer1Timer; //переопределяем динамически событие
end;

end;

procedure TForm1.Timer1Timer(Sender: TObject); //переопределенная процедура
begin
//команды для исполнения
end;

[GreenS]

Попробуй определить свойства объекта в окне свойств.
а в обработчик сделать примерно так

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;