Скачать: CL | DM;

Какое событые возникает при минимизации формы (свернуть)   Найти похожие ветки 

← →
Kazah_Progr   (2002-03-29 15:20) [0]

Или я кудато не туда смотрю или правда в инспекторе объектов нет события которое возникает при нажатии на кнопку свернуть окно. Хочу чтобы моя прога в трей падала. Трей уже победил а событие никак не найду. Извините за глупый вопрос.

---

← →
Виктор Щербаков ©   (2002-03-29 15:24) [1]

Приходит сообщение WM_SYSCOMMAND c параметром SC_MINIMIZE

---

← →
Виктор Щербаков ©   (2002-03-29 15:25) [2]

А событие OnMinimize есть у TApplication.

---

← →
Alx2 ©   (2002-03-29 15:27) [3]

TMainForm = class(TForm)
...................
procedure OnSysCommand(Var Msg : TMessage); message wm_SysCommand;
...............
end;
..........
implementation
...............
procedure TMainForm.OnSysCommand(var Msg: TMessage);
begin
if Msg.WParam = sc_minimize then
// Здесь оказываемся при минимизации
inherited;
end;

---

← →
Kazah_Progr   (2002-03-29 15:51) [4]

Спасибо!

---

← →
Kazah_Progr   (2002-03-29 15:53) [5]

А с панели задач как ее убрать?

---

← →
Виктор Щербаков ©   (2002-03-29 16:03) [6]

Application.ShowMainForm := false;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c