Форум: "Основная";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];

Вниз

Закрытие приложения   Найти похожие ветки 

← →
webpauk   (2005-08-03 19:03) [0]

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

SendMessage(???)

---

← →
Ega23 ©   (2005-08-03 19:04) [1]

application.Tesminate  ?

---

← →
webpauk   (2005-08-03 19:06) [2]

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

---

← →
Alexander Panov ©   (2005-08-03 19:06) [3]

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

---

← →
webpauk   (2005-08-03 19:11) [4]

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

---

← →
webpauk   (2005-08-03 19:13) [5]

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

ОК

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.07 c