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

← →
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;

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