информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Портрет посетителяSpanning Tree Protocol: недокументированное применениеВсе любят мед
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Docker Hub закрыл доступ из России 
 Google заблокировала 2 с лишним... 
 Бэкдор в xz/liblzma, предназначенный... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Могли бы. Пример внутри. 25.09.04 13:21  Число просмотров: 1646
Автор: 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;

---
<programming> Поиск 






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2024 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach