Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Убиение процедуры [D6, Win95/98, WinME]

RomeoGolf © (2004-10-08 15:28:00)
Подскажите пожалуйста, реально ли, и если да, то как решить такую проблемку. Запускается в дочерней форме приложения процедура с бесконечным циклом. Если форму убить, цикл продолжает вертеться, причем, если в нем есть обращение к визуальным компонентам формы, естесственно, лезут ошибки. А если нету - не закрыть главную форму. Можно ли как-то завершить/ликвидировать процедуру/метод убитой формы?

Digitman (2004-10-08 15:52:00) [1]

> Это что-нибудь даст?

While CheckBox1.Checked do // или Flag (который boolean)
begin
Application.ProcessMessages;
if FormClosedFlag then Break; //флаг взводится в любом событии формы, связанном с акцией закрытия формы
// еще что-нибудь
end;

RomeoGolf (2004-10-08 15:47:00) [2]
Да в общем-то, какая разнмца, какой код?
Грубо говоря, такой:

procedure TForm2.Button1Click(Sender: TObject);
begin
While CheckBox1.Checked do // или Flag (который boolean)
begin
Application.ProcessMessages;
// еще что-нибудь
end;
end;

Это что-нибудь даст?

Digitman (2004-10-08 15:40:00) [3]

> RomeoGolf

> можно ли удавить ее со стороны?

что удалить-то ? машкод процедуры ?

RomeoGolf (2004-10-08 15:37:00) [4]

> programania © (08.10.04 15:32) [2]

пробовал - не получается.

Вообще, поставил защиту от этого дела - именно не даю закрыться форме, пока не остановят процедуру.

Но хотелось бы узнать, можно ли удавить ее со стороны?

programania (2004-10-08 15:32:00) [5]
в FormCloseQuery
stop:=true;
в цикле
while not stop
или
if stop then break;

Суслик (2004-10-08 15:30:00) [6]
Форму у тебя получается закрыть т.к. ты в цикле вызываешь application.processmessages. Один из вариантов не вызывать его. Второй вариант на время работы цикла блокировать операции, которые могу приводить к ошибкам. Например не давать закрываться форме в OnCLoseQuery

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »