[vers0]

При установке хука на мышь нужно по нажатию левой кнопки выполнять какие-либо действия, а при ее отжатии останавливать выполнение.

Суть проблемы такова: если, к примеру, ставить/снимать "галку" в CheckBox'e по нажатию/отжатию, то все нормально и быстро, но если прописать по нажатию кнопки что-то более длинноиграющее, то пока полностью не отработает функция - не прекращается.
Выносить в отдельный поток не вариант, т.к. пользователь может нажимать кнопку мыши раз в минуту, а может и по 100 раз в секунду (ну, если пальцы не отвалятся )

Как прервать на произвольном месте и при повторном нажатии запустить заново?

Код:

procedure TForm1.WndProc(var Msg: TMessage);
if (Msg.Msg = MWM_LBUTTONDOWN) then
begin
        GetCursorPos(p);
        SetCursorPos(p.X-5, p.Y+5);
        Sleep(85);
        Application.ProcessMessages;
        GetCursorPos(p);
        SetCursorPos(p.X-5, p.Y+5);
        Sleep(85);
        Application.ProcessMessages;
        GetCursorPos(p);
        SetCursorPos(p.X+5, p.Y+5);
        Sleep(85);
        Application.ProcessMessages;
        GetCursorPos(p);
        SetCursorPos(p.X-5, p.Y+5);
        Sleep(85);
        Application.ProcessMessages;
        GetCursorPos(p);
        SetCursorPos(p.X+5, p.Y+5);
        Sleep(85);
        Application.ProcessMessages;
        GetCursorPos(p);
        SetCursorPos(p.X-5, p.Y+5);
        Sleep(85);
        Application.ProcessMessages;
        GetCursorPos(p);
        SetCursorPos(p.X+5, p.Y+5);
        Sleep(85);
        Application.ProcessMessages;
        GetCursorPos(p);
        SetCursorPos(p.X+5, p.Y+5);
        Sleep(85);
        Application.ProcessMessages;
        GetCursorPos(p);
        SetCursorPos(p.X-5, p.Y+5);
        Sleep(85);
        Application.ProcessMessages;
        GetCursorPos(p);
        SetCursorPos(p.X-5, p.Y+5);
        Sleep(85);
        Application.ProcessMessages;
        GetCursorPos(p);
        SetCursorPos(p.X+5, p.Y+5);
        Sleep(85);
        Application.ProcessMessages;
end;

if (Msg.Msg = MWM_LBUTTONUP) then
begin
    Exit;
end;

initialization
  MWM_LBUTTONDOWN := RegisterWindowMessage('MWM_LBUTTONDOWN');
  MWM_LBUTTONUP := RegisterWindowMessage('MWM_LBUTTONUP');
end.

[Alegun]

Поменяйте местами проверки, сначало отжатие и лишь затем жим

З.Ы. Не предназначена ловушка для "тяжёлых" действий, лучше вынести весь спуд в отдельную процедуру с отслеживанием состояния глобального флажка, а вот в обработчике хука запустив её после как раз и управлять этим индикатом, тогда при переключении процедура сама отвалится при изменении состояния

[vers0]

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

Поменяйте местами проверки, сначало отжатие и лишь затем жим

Сути это не поменяло (первое, что попробовал сделать)

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

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

Понедельник день тяжелый...да и я не особо тру-программист. Поподробней можно, хотя бы что и где читать, что б понять

[Alegun]

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

...Понедельник день тяжелый...

Полностью согласен с данным утверждением :-) вот рабочий пример выноса "тягомотины" на внешний обработчик с отслеживанием состояния флажка

Код:

type
   TForm1 = class(TForm)
...
    procedure WndProc(var Msg: TMessage); override;
    procedure ExternalWndProc;
...
 var
    Form1: TForm1;
    flg: bool;
...
procedure TForm1.ExternalWndProc;
var
 p: TPoint;
 i: integer;
begin
 for i:=0 to 100 do
  if flg then
   begin
    GetCursorPos(p);
    SetCursorPos(p.X-5, p.Y+5);
    Sleep(85);
    Application.ProcessMessages;
    GetCursorPos(p);
    SetCursorPos(p.X+5, p.Y+5);
    Sleep(85);
    Application.ProcessMessages;
   end
    else exit;
end;

procedure TForm1.WndProc(var Msg: TMessage);
begin

 inherited;

 case Msg.Msg of
  WM_LBUTTONDOWN:
   begin
    flg:= true;
    ExternalWndProc;
   end;

  WM_LBUTTONUP: flg:= false;
 end; {case}

 end;

[vers0]

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

Полностью согласен с данным утверждением :-) вот рабочий пример выноса "тягомотины" на внешний обработчик с отслеживанием состояния флажка

Благодарю, суть ясна, будем "пилить" Вы меня порадовали лаконичностью ответов...я уж приготовился к коментам вида "у вас фантазии не хватает", "хватит клянчить, книжки читай"

[vers0]

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

на внешний обработчик с отслеживанием состояния флажка

Если пишу так:

Код:

procedure TForm1.ExternalWndProc;
begin
 if (RadioGroup1.ItemIndex=0) and (ComboBox1.ItemIndex=4) then
        begin
        GetCursorPos(p);
        SetCursorPos(p.X+5, p.Y+5);
...
   end
    else exit;
end;

то выдает ошибку "Undeclared identifier: 'RadioGroup1' " и "extended but identifier 'ItemIndex' found". Если выношу обратно (где и было смещение курсора - procedure TForm1.WndProc(var Msg: TMessage), то все нормально. Можете помочь, где я туплю?
И не совсем понял вотэтот участок:

Код:

begin
    flg:= true;
    ExternalWndProc;
   end;

[Alegun]

Undeclared identifier это значит не видно радиокнопки из этой процедуры, вторая ошибка связана с первой и исчезнет, возможно нужно добавить явную указку на родителя компонета (if (MyForm.RadioGroup1.ItemIndex =0)...)

...И не совсем понял...

Сначало устанавливается флаг начала процесса в true, затем процедура запускается - т.к. кнопка уже нажата, в последующий вызов обработчика сообщений формы она снова не запустится пока не будет "отбоя" в виде отлова мессаги типа WM_LBUTTONUP

[vers0]

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

Сначало устанавливается флаг начала процесса в true, затем процедура запускается - т.к. кнопка уже нажата, в последующий вызов обработчика сообщений формы она снова не запустится пока не будет "отбоя" в виде отлова мессаги типа WM_LBUTTONUP

Это понятно, меня строка ExternalWndProc смущает, можно ли таким образом вызвать из одной процедуры другую?

Так же не работает программа (вернее работает, но при отжатии не происходит прерывание, а полностью отрабатывает все смещения), но при этом еще и начало игнорить кнопку, при нажатии на которую запускался хук мыши.

Уже месяц голову лома...заброшу наверное...

[Alegun]

Вызывать можно, этим как раз "эффект разгрузки тяжёлой процедуры" и объясняется - просто сообщения шлются форме постоянно, и если в обработчике задержаться немного, то работающая копия замещается следующей и что-то остановить в прошлой будет довольно трудно

Я проверил предварительно этот код в работе - цикл во внешней процедуре прекрасно обрывается, а как вы там её у себя хотите модернизировать, мне к сожалению, не ведомо

[Rerter]

Попробуй пусть твоя кнопка использует ShellAPI. Вызов другой программы для твоего большого кода выполнения. Тогда и прервать процесс будет легче. Так как другая программа будет выполнять поставленную задачу. Но и нагрузка на отслеживание нажата кнопка мыши или нет легче будет.