![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
||||
|
||||
|
Доброго времени суток уважаемые коллеги. Пол дня убил на что бы понять как описать класс многопоточности.. Теперь не могу понять как им воспользоваться.
Класс: Код:
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; ... Ткните пожалуйста меня носом в то место где я неправ. И подскажите как правильно использовать метод. Суть - мне надо что бы паралельно выполнялось 2 задачи... |
|
#2
|
||||
|
||||
|
Скачай DelphiWorld и прочитай про потоки, там отлично написано.
А заодно и про классы - твоя ошибка встречается практически у всех новичков у меня то же самое было. Для создания объекта надо писать:Код:
Var SProc: TMyThread; ... SProc := TMyThread.Create; Кстати, я тут выкладывал один исходник - можешь скачать и посмотреть, там как раз реализован отдельный поток http://www.delphisources.ru/forum/sh...5&postcount=19 |
|
#3
|
||||
|
||||
|
Огромное спасибо)) И действительно все не так сложно как казалось на первый взгляд. За исходник тож отдельное большое спасибо)
|