Реакция на нажатие кнопки

← →
Горбатов В.Ю. (2004-11-01 12:17) [0]

Уважаемые господа, поделитесь идеей!
Есть форма, с размещенными несколькими Edit"ами, в которые циклически вставляются строчки из файла. Также на форме есть кнопки <Применить>, <Пропустить>, <Отменить>.
Каким образом можно в теле цикла вставить ожидание нажатия кнопки?

← →
clickmaker © (2004-11-01 12:27) [1]

> Каким образом можно в теле цикла вставить ожидание нажатия
> кнопки?

Зачем?
Не проще ли строчки вставлять по нажатию кнопки?

← →
BillyJeans (2004-11-01 12:27) [2]

Application.ProcessMessages;

← →
BillyJeans (2004-11-01 12:56) [3]

Application.ProcessMessages;

← →
Горбатов В.Ю. (2004-11-01 13:27) [4]

2clickmaker - такой вариант уже обдумывал, не проще. Из файла получил строку, пользователь решает обрабатывать ее далее или пропустить, а если у кнопки на OnClick навесить обработку, то нужно следить когда файл открыт - закрыт, ну и еще кое-какие замороки получаются.

2BillyJeans - А можно поподробнее...смотрю хелп, там только пример, ничего не объясняющий.

Нужно именно ожидание вставить в сам цикл, который его останавливает, пока не будет нажата какая-либо кнопка. В Borland Pascal можно было навесить ожидание на readln или keypressed, тут же то же подобная фиговина должна присутствовать, вот только какая?

← →
BillyJeans (2004-11-01 13:35) [5]

в свой цикл воткни строчку:
Application.ProcessMessages;

> Из файла получил строку, пользователь решает обрабатывать
> ее далее или пропустить, а если у кнопки на OnClick навесить
> обработку, то нужно следить когда файл открыт - закрыт,
> ну и еще кое-какие замороки получаются.

Не вижу никаких заморок. Открыл форму - открыл файл, выкинул юзеру первую строчку. Он отвечает "Применить" - обрабатывай, "Пропустить" - читаешь следующую. Закрываешь форму - закрывай файл.
Структурно так:

FormCreate
begin
F := CreateFile (или FileOpen или что у тебя там)
ReadFile(F, Str)
end;

ApplyButtonClick;
begin
Obrabotka(Str);
ReadFile(F, Str);
end;

SkipButtonClick
begin
ReadFile(F, Str);
end;

FormDestroy
begin
CloseHandle(F)
end;

Реакция на нажатие кнопки Найти похожие ветки