Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.08.17;
Скачать: CL | DM;

Вниз

Событие OnTimer   Найти похожие ветки 

 
GrieVeR-13 ©   (2008-07-11 18:53) [0]

type
 TForm1 = class(TForm)
   procedure procOnTimer(Sender: TObject);
<...>
var  
T:TTimer;
<...>
procedure  TForm1.procOnTimer(Sender: TObject);
begin
//inc(i);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if T <> nil then T.Enabled:=false
 else begin
   T:=TTimer.Create(nil);
   T.OnTimer:=procOnTimer;
   T.Interval:=1000;
 end;
 T.Enabled:=true;
<...>

Здравствуйте,возникла такая задачка:
Есть таймер "T", который создается по нажатию кнопки. Надо передать через T.OnTimer:=procOnTimer; переменную i (которая закомментирована) как входной параметр. Это возможно? Просто хотел, чтобы несколько разных таймеров запускали одну процедуру, а в ней потом (в зависимости от значения i) выполнялось определенное действие.


 
Тын-Дын ©   (2008-07-11 19:01) [1]

Передавай нужный параметр/ссылку на него в Self.Tag,в обработчике проверяй в TTimer(Sender).Tag.


 
Johnmen ©   (2008-07-11 19:31) [2]


>  несколько разных таймеров

А в чем фишка?


 
GrieVeR-13 ©   (2008-07-11 19:33) [3]

Тын-Дын
Сразу не подумал об этом, спасибо, заработало=)


 
Игорь Шевченко ©   (2008-07-11 19:36) [4]


> А в чем фишка?


фишка в том, что одна процедура из нескольких таймеров вызывается. Причем таймеры сами создаются по нажатию на кнопку.

Прикинь, не надо писать по своей процедуре для каждого таймера.


 
Johnmen ©   (2008-07-11 19:50) [5]


> Игорь Шевченко ©   (11.07.08 19:36) [4]

Чиста круто :))



Страницы: 1 вся ветка

Текущий архив: 2008.08.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
15-1214825497
йцукен
2008-06-30 15:31
2008.08.17
Вопрос по SQL


15-1214983184
kaif
2008-07-02 11:19
2008.08.17
Как это называется?


6-1192086147
pathfinder
2007-10-11 11:02
2008.08.17
Работа с FTP-сервером через HTTP-proxy


2-1215759810
TUserClass
2008-07-11 11:03
2008.08.17
"Полосатый" DBGrid и несколько выделенных записей ...


15-1214770690
vister
2008-06-30 00:18
2008.08.17
Отладка программы