Скачать: CL | DM;

TThread и таймер внутри него   Найти похожие ветки 

← →
ИМХО ©   (2004-07-29 20:10) [0]

Здравствуйте, назрел такой вопрос.
В программе нужно создать поток, который будет каждые 100 миллисекунд мониторить главную часть программы.

Подозреваю, что нужно сделать что-то вроде:

TMyThread = class(TThread)
Timer1: TTimer;
procedure Execute; override;
procedure Timer1Timer(Sender: TObject);
end;

Или есть другие решения?

---

← →
Palladin ©   (2004-07-29 20:13) [1]

Sleep

---

← →
ИМХО ©   (2004-07-29 20:15) [2]

Куда Sleep вставлять?

---

← →
Palladin ©   (2004-07-29 20:21) [3]

что нибудь на подобие

while not terminated do
try
 монитор
finally
 sleep(100)
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c