Скачать: CL | DM;

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

← →
Горбатов В.Ю.   (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;

---

← →
clickmaker ©   (2004-11-01 13:53) [6]

> Из файла получил строку, пользователь решает обрабатывать
> ее далее или пропустить, а если у кнопки на 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c