Поток в процедуре

[vers0]

Имеется код, как сделать его в потоке (procedure TForm1.WndProc)???

TMyThread = class(TThread)
    private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  MyThread: TMyThread;
  Form1: TForm1;
  HookEnable: Boolean = False;
  HookFilters: TMouseHookFilters;
  MWM_LBUTTONDOWN: Cardinal;
  MWM_LBUTTONUP: Cardinal;


procedure TForm1.WndProc(var Msg: TMessage);
begin
  inherited;
  if (Msg.Msg = MWM_LBUTTONDOWN) then  //кнопка нажата
  begin
     if (sRadioGroup1.ItemIndex=0) and (sComboBox1.ItemIndex=0) then
        begin
...
        end;
...
if (Msg.Msg = MWM_LBUTTONUP) then  //кнопка отжата
  begin
   ...
  Exit;
  end;

procedure TForm1.sButton1Click(Sender: TObject);
begin
  if StartMouseHook(True, Handle) = True then
    begin
    HookEnable := True;
    sButton1.Enabled := False;
    sButton2.Enabled := True;
    end else
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
  if StopMouseHook = True then
    begin
    HookEnable := False;
    sButton2.Enabled := False;
    sButton1.Enabled := True;
    end else
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if HookEnable <> False then
    StopMouseHook;
end;

пробовал добавлять в MWM_LBUTTONDOWN - MyThread:=TMyThread.Create(True); а в MWM_LBUTTONUP - MyThread.Terminate; MyThread.Free; Результат такой же, как и без них - функция выполняется до конка при клике мыши, хотя нужно, что бы при отпускании кнопки происходила полная остановка выполнения.
С потоками ни разу не сталкивался, извините за нубство

Собственно суть в том, что бы при нажатии кнопки мыши создавался поток, а при отжатии - "разрушался".

[eoln]

А зачем WndProc? У формы есть свои события обработки (если, конечно, не требуется все контролы контролировать)

Сообщение от vers0

полная остановка выполнения

При нажатии старт, при отжатии - финиш? Можно в заморозку отправить suspend-ом, а потом разморозить resume. Правда, методы deprecated, но если поток не синхронизируется, то это безопасно. Это если не нужно сбрасывать состояние потока в начальное положение.
Не знаю как устроена процедура TMyThread.Execute, но я бы добавил туда проверку на флаг завершения (если это возможно).
Собственно ничего не скажу, т.к. не знаю для чего это нужно и как выглядит.

[vers0]

Сообщение от eoln

А зачем WndProc? У формы есть свои события обработки (если, конечно, не требуется все контролы контролировать)
Не знаю как устроена процедура TMyThread.Execute, но я бы добавил туда проверку на флаг завершения (если это возможно).
Собственно ничего не скажу, т.к. не знаю для чего это нужно и как выглядит.

Отлавливается нажатие клавиш и кнопок мыши в других приложениях (DirectX), при отжатии кнопки мыши нужно прекратить выполнение, а при повторном нажатии снова начать выполнение. Приложение свернуто в трей и по сути с главной формой нет смысла работать.

[eoln]

Подробности засекречены? Как прекратить? Мгновенно? А если там кэш на диск сбрасывается или ещё чего опасного. Или дать доработать текущей итерации? Или там нет итераций? А как долго поток обрабатывает клик? А если пользователь очень много кликает это же нагрузка на каждое создание/удаление "тяжёлого" TThread.

Собственно, в классе завести публичную переменную IsWork. При нажатии кнопки ставить её в true, а при отжатии в false. А поток пусть выполняет то что нужно если IsWork = true. Этот способ хорош, если есть цикличность

Чтобы не было зря потраченных ресурсов (это немного гуманнее) можно использовать семафоры (мьютексы, критические секции и им подобное) для временной блокировки потока в нужном месте. Этот способ не остановит поток мгновенно, остановка только в определённых местах.

Если поток "изолирован" от других потоков, то те же suspend/resume сгодятся.

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