Кнопка прекращающая действие

[Praud]

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

Пользователь нажимает на кнопку ( в программе ). Идет бесконечное действие чего-либо. При нажатии Esc(клавиша взята к примеру) это действие прекращается, но при этом программа не закрывается.
Причем нужно чтобы эта кнопка работала когда фокус не стоит на программе.

Собственно вопрос где писать? Пробовал писать в Form1.KeyDown не работает, пробовал в Button1.KeyDown - не работает

Вот код.

if key=VK_ESCAPE then Exit;

Но это что-то не то.

[Stilet]

Причем нужно чтобы эта кнопка работала когда фокус не стоит на программе.

Значит регистрируй горячую клавишу. Или ставь хук на клавиатуру.

Пользователь нажимает на кнопку ( в программе ). Идет бесконечное действие чего-либо.

Это уже готово или это тоже нужно еще только писать?

[Praud]

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

Значит регистрируй горячую клавишу. Или ставь хук на клавиатуру.

Это уже готово или это тоже нужно еще только писать?

Как регистрировать горячую клавишу? Мне если можно самый простой вариант, с хуком на клавиатуре я врядли разберусь. Я даже не имею понятия что это.
А то что я говорю уже написано и работает. Осталось сделать клавишу "отмена" для этого

[Stilet]

Смотри: http://www.programmersforum.ru/showthread.php?t=8638

[Praud]

сейчас почитаю, но главный вопрос то не решен, как выйти из цикла? Код приведенный выше не работает. Пока что пусть оно хоть внутри программы работает. Хоть как-то

[northener]

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

как выйти из цикла? Код приведенный выше не работает.

"Внешним" способом цикл прервать нельзя никаким образом.

[Praud]

Ну делают же как-то автокликеры. Допустим бесконечное кол-во повторений. Кнопка Esc- прекращение "кликания"

[northener]

Внутри цикла нужно организовать проверку какой-нибудь переменной типа:

var
  StopCicle : Boolean;
...
StopCicle:=False;
while True do
  begin
    ...  //основная работа цикла
    Application.ProcessMessages;   //Волшебная строчка
    if StopCicle then Exit;
  end;

StopCicle устанавливать в True по нажатию кнопки.

[Praud]

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

Внутри цикла нужно организовать проверку какой-нибудь переменной типа:

var
  StopCicle : Boolean;
...
StopCicle:=False;
while True do
  begin
    ...  //основная работа цикла
    Application.ProcessMessages;   //Волшебная строчка
    if StopCicle then Exit;
  end;

StopCicle устанавливать в True по нажатию кнопки.

Сделал так как вы написали, только остался вопрос, для какой формы писать само действие при нажатии кнопки? Пишу KeyDown для TForm1 - не работает

[Praud]

Вместо каких либо действий на кнопку Escape Написал простейший ShowMessage.
Проблема в том что ShowMessage Выбивает только после окончания цикла ( если он не бесконечен ). То есть я могу нажать на Esc в любое время, а действие выполнится только после этого цикла. И как с этим бороться?