как грамотно закрыть программу

[locator]

Доброго времени суток! При закрытии программы я выполняю в OnClose
кучу всяких действий: закрытие портов, убивание потоков и.т.д.
Однако, окно программы закрывается, а в диспетчере задач она продолжает висеть и
загрузка показывает 100%. Или еще хуже: окно не закрывается и
повисает. Как с этим бороться и вообще, как грамотно закрывать
программы? Спасибо за ответ!

[Finch]

С обработчика события OnClose ты что возрашаеш?

[RXL]

Чтобы форма закрылась и ресурсы высвободились в OnClose нужно установить желаемой действие в Action. Напр.: Action := caFree
Также форму нужно убрать из списка предварительно создаваемых.

[locator]

Чтобы форма закрылась и ресурсы высвободились в OnClose нужно установить желаемой действие в Action. Напр.: Action := caFree
Также форму нужно убрать из списка предварительно создаваемых.

Так форма закрывается вроде, но ресурсы не овобождаются

[locator]

С обработчика события OnClose ты что возрашаеш?

ничего не возвращаю кажется, а как он может что-то возвращать?

[Finch]

locator, Насколько я помню, в обработчик вроде подставляется функция. И насколько я помню Дельфи, вроде нужно просто ключевому слову result присвоить значение возврата при выходе из функции. Что именно, посмотри Help. 

[zubr]

OnClose, да и все стандартные обработчики событий в Delphi - процедура, а не функция, поэтому никакой Result здесь не нужен, более того, он вызовет ошибку компилляции.

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 //Какой то код
 Action:=caFree;
end;

Но думаю Action:=caFree; врядли поможет, скорее всего какие то проблемы в программе - может какой то поток еще работает, или порт не закрылся.

[RXL]

zubr, есть свойство формы ModalResult. Согласно документации управление вернется в родительскую форму после установки ModalResult в значение отличное от ноля.

[DemonicAlligator]

ModalResult имеет значение только для модальных форм. Если форма немодальная, то присвоение ничего не изменит, пока явно не вызовешь Form.Close

[RXL]

Синий Аллигатор, да, в данном случае не рулит. Что-то я забыл, что это главная форма...

[DemonicAlligator]

locator, Рекомендую пробегать по списку потоков и проверять их закрытие... Ты как потоки завершаешь? Вызываешь Thread.Terminate а в методе Thread.Execute проверяешь  Thread.Terminated ?

[locator]

locator, Рекомендую пробегать по списку потоков и проверять их закрытие... Ты как потоки завершаешь? Вызываешь Thread.Terminate а в методе Thread.Execute проверяешь  Thread.Terminated ?

Просто вызываю Thread.TerminateHard и ничего не проверяю. Я так понял что надо проверять Thread.Terminated обязательно, иначе зависает поток

[DemonicAlligator]

Лучше в методе Execute внутри цикла проверять Terminated и если истина - освобождать все ресурсы и выходить из метода, тогда всё будет прибито корректно.