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

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

close form -> minimize [D6, WinME, WinXP]

ask ©   (2002-05-21 13:37:00) 

Мастера, подскажите как реализовать минимизацию формы при попытке ее закрытия.

---

snoup   (2002-05-21 19:26:00) [1]

На обработчике OnClose напиши
action:=canone;
application.Minimize;
Удачи!

---

Agent Smith   (2002-05-21 19:12:00) [2]

Я уже подробно ответил на этот вопрос, но либо сервак не сработал, либо была другая ветка, а она где-то заблудилась...

---

PVOzerski   (2002-05-21 18:53:00) [3]

Перехватить сообщение WM_SYSCOMMAND и соответствующим образом поправить:

procedure WMSysCommand(var msg:tWMSysCommand);message WM_SYSCOMMAND;

...
procedure tForm1.WMSysCommand(var msg:tWMSysCommand);
begin
if msg.CmdType=SC_CLOSE then
msg.CmdType:=SC_MINIMIZE;
inherited;
end;

---

NailS   (2002-05-21 16:52:00) [4]

Может в OnClose Action := caMinimize прописать?

---

KilkennyCat   (2002-05-21 16:49:00) [5]

в событии OnCloseQuery сказать CanClose := false; Hide;

---

Наверх