Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Вниз

Form with TrayIcon   Найти похожие ветки 

← →
AlexBeliy   (2002-08-16 01:37) [0]

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

---

← →
Poirot   (2002-08-16 03:04) [1]

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

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

---

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

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

---

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

Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Наверх

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