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

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

Form with TrayIcon [D5, D6, Win95/98, Win2k]

AlexBeliy ©   (2002-08-16 01:37:00) 

Люди !
Вот какой вопрос. Я использую компонент TrayIcon. Как сделать, чтобы при нажатии на крест в правом верхнем углу (то бишь "закрыть") программа не выходила, не закрывалась, а сворачивалась обратно в трей ?

---

СергейКнязев   (2002-08-16 08:51:00) [1]

Все намного проще в событии OnClose пишешь одну строку: Action := caHide;

---

Poirot   (2002-08-16 03:04:00) [2]

//в классе
procedure wmSysCommand(var Message:TMessage); message WM_SYSCOMMAND;

procedure TForm1.wmSysCommand;
begin
case Message.wParam of
SC_CLOSE:{свернуть};
else Inherited;
end;
end;

---

Наверх