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;
Удачи!

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