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 вставлять?

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

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

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