Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Закрытие приложения [D6, WinXP]


webpauk ©   (2005-08-03 19:03:00) 

Пишу компонент.
Надо чтобы при нажатии на него закрылось приложение.
procedure WndProc(var Msg: TMessage);
begin
  inherited;
  case msg.Msg of
     WM_LBUTTONDOWN:
     begin
     end;
  end;
end;


SendMessage(???)


webpauk   (2005-08-03 19:13:00) [1]


> Alexander Panov ©   (03.08.05 19:06) [3]

ОК


webpauk   (2005-08-03 19:11:00) [2]

только надо чтобы посылалось сообщение SC_CLOSE, как при обычном нажатии на кнопку закрытия.
SendMessage(application.Handle, WM_SysCommand, sc_CLOSE, 0);- не работает


webpauk   (2005-08-03 19:06:00) [3]

и как я до этого не додумался?


Alexander Panov   (2005-08-03 19:06:00) [4]

WM_CLOSE
И не Send, а PostMessage.
И не экземпляру твоего компонента, а главному окну.


Ega23   (2005-08-03 19:04:00) [5]

application.Tesminate  ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо