Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Могли бы. Пример внутри. 25.09.04 13:21 Число просмотров: 1687
Автор: HandleX <Александр М.> Статус: The Elderman
|
procedure TForm1.Timer1Timer(Sender: TObject);
Var ThisTimer: TTimer;
begin
ThisTimer := TTimer(Sender);
ThisTimer.Tag := ThisTimer.Tag - 1;
If ThisTimer.Tag < 0 Then
Begin
ThisTimer.Enabled := False;
Exit;
End;
// А здесь пишешь тот код, который должен у тебя выполниться через
// равные промежутки времени.
// Внимание! Установи на форме для таймера параметр Enabled в False,
// если не хочешь, чтобы он выполнялся сразу после создания формы.
// Для запуска кода делаешь Timer1.Enabled := True
// В свойство таймера Tag устанавливаешь нужное количество итераций.
// В свойство таймера Interval ставишь нужное кол-во миллисекунд.
end;
---
|
|
|