Текущий архив: 2004.09.12;
Скачать: CL | DM;

Вниз

сворачивание формы   Найти похожие ветки 

← →
Fynjy1984 ©   (2004-08-26 07:44) [0]

Подскажите как мне отлавить сворачивание формы (не главной)?

---

← →
Рамиль ©   (2004-08-26 08:06) [1]

procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
....

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
 if Message.CmdType and $FFF0 <> SC_MINIMIZE then
 begin
    // .....
 end;
 inherited
end;

---

← →
Рамиль ©   (2004-08-26 08:07) [2]

> if Message.CmdType and $FFF0 <> SC_MINIMIZE then

if Message.CmdType and $FFF0 = SC_MINIMIZE then

---

← →
Fynjy1984 ©   (2004-08-26 08:15) [3]

2Рамиль ©   (26.08.04 08:07) [2]

Спасибо!

---

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

Текущий архив: 2004.09.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.039 c