Выход из программы

[relav_]

Подскажите, пожалуйста, как закрыть программу, которая выводит в цикле график на элемента CHART, при нажатии на кнопку EXIT. Нажатие происходит во время вывода графика. Application.ProcessMessages - в цикле есть.

Пробовал: просто Form1.Close
SendMessage(Form1. Handle,WM_CLOSE, 0, 0);
CanClose:=true;
Action:=caFree;

Как закрыть принудительно прогу?????

[Kostia]

Попробуй так: Application.Terminate;
Ну или на самый худой конец halt;

[relav_]

Halt помогло. Спасибо

[mihali4]

Application.Terminate и Halt - это грубо и применимо для аварийных завершений.
Попробуйте так:
- внутрь цикла ставите Application.ProcessMessages и осуществляете проверку некой переменной, значение которой и устанавливается при нажатии на вашу кнопку EXIT (переменная, конечно, глобальная).
- ну, и в зависимости от значения этой переменной либо продолжаете цикл, либо выходите из него (команда BREAK).
Ведь вам, наверняка, не программу закрыть нужно, а цикл прервать? Закрывать-то ее зачем?

[Kostia]

mihali4, совсем об этом забыл!
Я делал так:
цикл
repeat
...
until tag=1;
по событию
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
tag:=1;
end;

Tag - это переменная не отвечающая ни за что и программист может использовать ее в своих целях.

[andrey4623]

То есть если я для выхода из своих многооконных приложений использовал halt, это являлось грубым нарушением?

[Квэнди]

halt это как reset

[andrey4623]

а надо как
если я не хочу искать первую форму, у меня их штук 10

[mihali4]

Например, каскадное закрывание форм.
Преимущество в том, что у вас происходит нормальная обработка OnClose каждой формы с сохранением (если предусмотрено) каких-то данных и так далее.
Представьте себе текстовый редактор, где вы наваяли некий шедевр програмистской мысли, но не выбрали пункт меню "Сохранить", а сделали хальт... То же самое, что просто взять и убить процесс, порожденный запуском программы.

[andrey4623]

можно просто закрыть главную форму
тогда-то ведь все сохраняется