Форум: "Система";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
ВнизПотоки... HELP ! Найти похожие ветки
← →
vgy765 (2001-12-04 13:25) [2]type
MyThread = class(TThread)
procedure Execute; override;
procedure Work;
end;
implemetation
procedure MyThread.Execute;
begin
Work;
end;
procedure MyThread.Work;
begin
{То что нужно выполнять}
end;
procedure Timer1.Timer() <-не помню точно но стандартная по таймеру
var
WorkThread:Mythread;
begin
WorkThread:=MyThread.Create(False);
end;
Вот так должно точно работать.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c