Доброго времени суток уважаемые коллеги. Пол дня убил на что бы понять как описать класс многопоточности.. Теперь не могу понять как им воспользоваться.
Класс:
Код:
type
TMyThread = class(TThread)
Procedure Execute(); virtual;
end;
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
....
Метод выглядит так:
Код:
procedure TMyThread.Execute;
begin
repeat
ClickOnForm(FindWindow(nil, 'Some text'),'Caption');
Until SendClick = 0;
end;
Пытаюсь запустить его примерно так:
Код:
procedure TForm1.Button12Click(Sender: TObject);
Var
SProc: TMyThread;
...
SProc.Create;
SProc.Execute;
...
Пробовал без криате. Пробовал ставить True или False в параметре Create, в общем всяески пробовал и всячески получал ошибку.
Ткните пожалуйста меня носом в то место где я неправ. И подскажите как правильно использовать метод. Суть - мне надо что бы паралельно выполнялось 2 задачи...