Как выйти из цикла по нажатию горячей клавиши?

[suslik_]

...
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure F1(var Message:TMessage);message WM_HOTKEY;
    procedure FormDestroy(Sender: TObject);
...

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle,0,MOD_ALT,$56);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Handle,0);
end;

procedure TForm1.F1(var Message: TMessage);
begin
 e:=1;
end;

  while e<>1 do begin
    ...
    {код программы}
    ...
  end;

Нужно чтобы программа работала пока я ее не остановлю, а не до выполнения каких то особых условий. Пробовал через HOTKEY , не реагирует.
Посоветуйте как можно это сделать, желательно с примером.

[Serge_Bliznykov]

1)

чтобы программа работала пока я ее не остановлю

Вы не поверите, но запущенное Вами приложение с формой и так работает, пока Вы его не закроете!!

нужно что бы ЧТО ДЕЛАЛОСЬ в цикле?!
Может быть, Вам таймер поможет?!


2) ну если у Вас какие-то свои заморочки (читай - "извращения"),
то как минимум в цикл добавьте строчку Application.ProcessMessages;

  while e<>1 do begin
    Application.ProcessMessages;
    ...
    {код программы}
    ...
  end;

ну и по нажатию клавишу устанавливайте какую-то переменную.
например, на форме на OnKeyPress/OnKeyUp/OnKeyDown - установить глобальную переменную e в 1

хотя, возможно, что и ваша F1 отработает...


Но мой Вам совет. Ещё раз подумайте, что и как Вы собираете запрограммировать!
подобные "проблемы" говорят о том, что Вы неправильно (очень плохо) придумали логику работы программы!


ДОБАВЛЕНО
А зачем вообще все эти пляски с бубном вокруг нажатия клавиш?!
Добавив Application.ProcessMessages; в цикл
вы получаете возможность в любой момент закрыть приложение стандартным образом!
(через ALT-F4 или через крестик в правом верхнем углу окна...)

[suslik_]

Application.ProcessMessages;

Спасибо помогло ))

Вы не поверите, но запущенное Вами приложение с формой и так работает, пока Вы его не закроете!!

Вот только закрывать приходилось Процесс в Диспетчере задач ...