Как выйти из ступора?

← →
burbuluc © (2008-11-17 19:11) [0]

Всем добрый вечер.
У меня простая задача:
Пусть есть форма, на которой две кнопки: button1 и button2. Обработчик первой выглядит примерно так:
Onbutton1Click
flag:=false;
fid:=filecreate....
for i:=1 to 1 000 000 (!!!)..
filewrite(fid,buf,16)...
if flag then break;
end;
Обработчик второй попроще:
Onbutton2Click...
flag:=true;

Но когда я запускаю эту прогу и нажимаю первую кнопку, я не могу нажать на вторую кнопку, чтобы остановить выполнение Onbutton1click. Вопрос: какие средства мне использовать, чтобы все кнопки и другие элементы управления получали данные от клавитатуры и мыши, а как я могу во время подобных затяжных процедур правильно - без тормозов - отображать разные тексты и прочее.
Заранее благодарен.

← →
Германн © (2008-11-17 19:31) [1]

1. Application.ProcessMessages
2. TThread

← →
burbuluc © (2008-11-17 20:16) [2]

2 Германн. (Application.ProcessMessages)
Огромное спасибо. Я знал, но забыл ;-)
Ещё раз спасибо.

только вставляй не в каждую итерацию.

Как выйти из ступора? Найти похожие ветки