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

close form -> minimize   Найти похожие ветки 

← →
ask   (2002-05-21 13:37) [0]

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

---

← →
KilkennyCat ©   (2002-05-21 16:49) [1]

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

---

← →
NailS ©   (2002-05-21 16:52) [2]

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

---

← →
PVOzerski ©   (2002-05-21 18:53) [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;

---

← →
Agent Smith ©   (2002-05-21 19:12) [4]

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

---

← →
snoup ©   (2002-05-21 19:26) [5]

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

---

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

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



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