Сброс программы

[Harry]

При написании программы в Delphi 6 очень мешает некий глючок. А именно - после запуска программы, когда я поработал с ней и закрываю она продолжает выполняться (?) Это выражается в неактивности кнопки Run и активности кнопки Pause. Т.е. приходится делать CTRL+F2 (Program Reset). Это очень раздражает. Кто-нибудь сталкивался с подобным? Явно глюк программы, поскольку с другими проетами такого нет. Сама программа довольно тормозная, использует графику (Image). Подскажите, пожалуйста, возможные причины и как эту гадость побороть.

[RXL]

Работа с графикой идет в том же потоке что и обработка сообщний (событий)?

[Harry]

Да. Сама программа представляет собой несколько окон с графикой, вызывающиеся по выбору соответствующего выпадающего пункта в Main Menu, либо кнопкой на форме.

[sss]

Попробуй запустить без Дельфи. Если в процессах останется -> ни причем здесь дельфи !

[Harry]

Да, ты прав, процесс в памяти остается. Ладно, все равно программу придется кардинально переписывать. Ну это же надо - такое простенькое нечто ест 102Мб оперативки    Вот так низкосортные программы и пишут...  :oops:

[sss]

Всякое бывает ....

[Harry]

Разобрался я с этой бедой (почему программа в процессах остается), не глючок это вовсе. И присуще не только Delphi6, но и 5 тоже. Просто используется несколько форм, свойствами Visible:=True или False показываются/прячутся, а при выходе из программы формы закрываются не все и процесс остается в оперативной памяти.
В связи с этим встает новый вопрос - предположим есть у меня три формы.
fmMain, fmWork, fmSprav (открываются именно в такой последовательности друг из друга)
На каждой из них кроме всего прочего есть кнопка Exit, по которой программа должна завершаться.
Для кнопки на fmMain в обработчике я пишу close;
Для кнопки на fmWork пишу fmMain.close; close;
Для кнопки на fmSprav соответственно fmMain.close; fmWork.close; close;

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

[cg_spooler]

Но ведь пользователь может просто нажать кнопку-крестик в правом верхнем углу. И тогда процесс в памяти остается. Как быть?

Привяжи на главную форму.

proc fmMainOnClose;
begin
application.terminate;
end;

или

proc fmMainOnClose;
begin
fmwork.close;
fmsprav.close;
end;

При вызове других форм не закрывай 1 форму, а просто hide делай. Так быстрее и надежнее. И на OnClose всех других форм делай fmMain.Show;

[Harry]

Звучит логично. Сейчас попробую...

[Harry]

Ур-ря! Заработала! cg_spooler, спасибо