Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Вниз
как описать событие OnTimer в таймере созданым програмно Найти похожие ветки
← →
Pierre © (2006-08-29 01:15) [0]Помогити пожилуйста. Пишу шпил и мне необходимо чтобы во время работы проги создавался таймер. Никак немогу правильно сделать описание события OnTimer подскажите как это сделать или хотябы скинте ссылку где прочесть.
P.S.
Я не ленивый просто сроки сдачи проги поджимают и на поиски инфы нет времени. Заранее спасибо всегда ваш Pierre
← →
Ketmar © (2006-08-29 01:27) [1]ленивый. пока печатал это, мог найти.
в описании класса формы:procedure TimerHandler (sender: TObject);
после создания таймера:timer.OnTimer := TimerHandler;
← →
Zeqfreed © (2006-08-29 01:27) [2]
procedure TForm1.MyOnTimer(Sender: TObject);
begin
Caption := Caption + ".";
if (length(Caption) > 10) then Caption := "";
end;
procedure MyOnTimer2(Sender : TObject);
begin
ShowMessageFmt("%d", [(Sender as TTimer).Tag]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
m : TMethod;
tmp : TTimer;
begin
with TTimer.Create(Self) do begin
OnTimer := MyOnTimer;
Interval := 1000;
Enabled := true;
end;
tmp := TTimer.Create(Self);
m.Code := @MyOnTimer2;
m.Data := Pointer(tmp);
tmp.OnTimer := TNotifyEvent(m);
tmp.Tag := 5;
tmp.Interval := 5000;
tmp.Enabled := true;
end;
← →
Pierre © (2006-08-29 01:48) [3]ОГРОМНОЕ СПАСИБО
← →
begin...end © (2006-08-29 08:16) [4]> Zeqfreed © (29.08.06 01:27) [2]
Во втором случае процедуру правильнее будет объявить так:
procedure MyOnTimer2(Self, Sender : TObject);
← →
Ketmar © (2006-08-29 09:51) [5]> [2] Zeqfreed © (29.08.06 01:27)
ну зачем людей гадостям учишь? вот так и кочует из программы в программу неверный код (см [3]). %-)
← →
Ketmar © (2006-08-29 09:51) [6]> [5] Ketmar © (29.08.06 09:51)
в смысле -- см. [4]. %-)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c
