Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> какое сообщение ловить при нажатии на крестик, закрытие окна 
V
    Опции темы
demoded
Дата 24.12.2009, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 7.12.2006

Репутация: нет
Всего: нет
модальное окно, в цикле while крутится графика, нажатие на контролы обрабатываю 
Application.ProcessMessages;

как поймать сообщения закрытия окна при нажатии на крестик? вот это не срабатывает
Код

    if PeekMessage(msg,0,0,0,PM_NOREMOVE) then
    begin
      if msg.message = WM_SYSCOMMAND then
        if msg.wParam = SC_CLOSE then
          Finish := true;
    end;
PM MAIL   Вверх
cemick
Дата 24.12.2009, 10:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 6
Цитата(demoded @  24.12.2009,  08:22 Найти цитируемый пост)
if PeekMessage(msg,0,0,0,PM_NOREMOVE) then
    begin
      if msg.message = WM_SYSCOMMAND then
        if msg.wParam = SC_CLOSE then
          Finish := true;
    end;


Где вы это написали? В Этом участке кода ошибки нет.

Это сообщение отредактировал(а) cemick - 24.12.2009, 10:01
PM MAIL WWW   Вверх
demoded
Дата 24.12.2009, 10:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 7.12.2006

Репутация: нет
Всего: нет
это написано в теле цикла
PM MAIL   Вверх
cemick
Дата 24.12.2009, 10:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 6
в каком цикле? Может у тебя там написано какой нибудь processMessage и обрабтка сообщений происходит не здесь
PM MAIL WWW   Вверх
demoded
Дата 24.12.2009, 10:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 7.12.2006

Репутация: нет
Всего: нет
вот цикл полностью
Код

  while not Finish do
  begin
    DrawScene();

    if PeekMessage(msg,0,0,0,PM_NOREMOVE) then
    begin
      if msg.message = WM_SYSCOMMAND then
        if msg.wParam = SC_CLOSE then
          Finish := true;
    end;
    Application.ProcessMessages;

  end;
PM MAIL   Вверх
cemick
Дата 24.12.2009, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 6
Цитата(demoded @  24.12.2009,  10:25 Найти цитируемый пост)
Application.ProcessMessages;


отлично:
Application.ProcessMessages;

Я так понимаю, обработка очереди сообщений у тебя происходит где то там TApplication.WndProc. Это значит что все оконныя сообщения из стека выбираются там, а в твоем цикле(Где он написан то?  Что за метод?) PeekMessage'у уже нечего выбирать. 

И если у тебя есть окно, почему бы не установить обработчик на закрытие окна и устанавливать там тот же флаг Finish. Рекомендую книжку Краснова "OpenGL" там просто объяснено как лучше выполнять цикл отрисовки с отловом нужных сообщений.
PM MAIL WWW   Вверх
demoded
Дата 24.12.2009, 11:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 7.12.2006

Репутация: нет
Всего: нет
ну в принципе я направление, буду копать. спасибо
PM MAIL   Вверх
Poseidon
Дата 24.12.2009, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133
Модальное окно останавливает выполнение кода на команде ShowModal. После закрытия окна код продолжает выполнение. Так что закрытие окна ловить не надо, все что после ShowModal быдет выполнено после закрытия окна.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0733 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.