"Поймать" событие нажатия на кнопку

[Lisi4ka]

Доброго всем времени суток!
Каким образом приостановить выполнение цикла до нажатия на кнопку?
Это должно выглядеть примерно так:

for i:=to 10 do
 begin
  if () //если кнопку нажали - не знаю, как задать
    then
   begin
    Label1.Caption:= intToStr(i);
    continue;
   end;
 end;

[KORN]

сделай переменную flag: boolean=false; // глобаная

при нажатии на кнопку делаешь ее true а в обработчике пишешь if flag then

и все

[Juffin]

ищем в форме событие OnKeyDown, и в нем пишем этот кусок программы.
вроде так:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var i:integer;
begin
for i:=to 10 do
 begin
  if (key=VK_UP) //реакция на нажатие стрелочки вверх
    then
   begin
    Label1.Caption:= intToStr(i);
    continue;
   end;
 end;
end;

[Lisi4ka]

Спасибо всем, кто ответил! Честно сказать, не получилось у меня ни 1-м, ни 2-м способом Я бы хотела приостанавливать цикл на каждой итерации до нажатия кнопки, подскажите, пжлст, как можно это сделать? Мож. Таймер на форму кинуть и в течение 1 минуты ждать, пока кнопку не нажмут?

[evg_m]

переменная flag может получить новое значение только после обработки windows сообщений от кнопки. Для этой обработки необходимо добавить внутрь цикла вот такую строчку

Application.ProcessMessage;

это вызов функций для обработки windows сообщений

[KORN]

если тебе нужно выйти из цикла, то пиши break;, а не continue;

[Lisi4ka]

Нет, не нужно выходить! Просто надо, чтобы переход на сл. итерацию происходил при нажатии на кнопку.
А можно, пжлст, кусочек маленький примера использования вызова описанной Вами ф-ции. Была бы оч.признательна!

[DeKot]

Не нужен Вам вобще здесь, при такой постановке вопроса, цикл.Вы же хотите, чтоб выполнялась часть кода только после нажатия кнопки. Вот и используйте запуск вашего кода по событию нажатия кнопки OnClick.Для ограничения количества запусков - вводим переменную-счетчик, которую инкрементируем ( увелич. на 1) по каждому нажатию кнопки.При достижении предельно разрешаемого значения - команда EXIT(выход из процедуры).
Если не понятно, приведу примерный код.

[Lisi4ka]

-постановка задачи: когда считали циклом очередную запись из Ворда: она должна быть показана юзеру
-юзер, если ему нравится, нажимает кнопочку "Сохранить" - данные записываются в базу, след. итерация начинается
-юзеру не нравится, он нажимает "пропустить" - в базу ничего не идет, начинается след. итерация.
Много кода переделывать, я бы и хотела обойтись малой кровью, а именно: если юзер что-нибудь нажимает, идем дальше, а нет - пускай в экран смотрит
Поэтому если не сложно, киньте код какой-нибудь, который бы позволял цикл приостанавливать. Спасибо!

[DeKot]

Тогда алгоритм должен выглядеть так:
1. Любым Вашим методом считали порцию текста и вывели ее на экран.
2. Ждем события нажатия кнопок "Сохранить" или "Пропустить".
3. По нажатой "Сохранить" - заносим текст в базу и к пункту 1, а при "Пропустить" - переход к пункту 1.
Все и никаких циклов в обработке ( процедуры считывания, сохранения могут содержать циклы и тюпю).