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

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

скрыть приложение [D6, Win95/98, Win2k]

pavelgr ©   (2004-09-15 17:02:00) 

всем привет!!!
подскажите, пожалуйста, как сделать, чтоб при нажатии на кнопку программа скрывалась в правый угол панели задач (туда, где часы и переключатель клавиатуры)???

---

Rem   (2004-09-15 17:48:00) [1]

type
 TForm2 = class(TForm)
 private
   procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
   ...
 end;

procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
var
 WindowPlacement: TWindowPlacement;
begin
 if (Message.CmdType = SC_MINIMIZE) then
 begin
   WindowPlacement.length := SizeOf(WindowPlacement);
   WindowPlacement.flags := WPF_SETMINPOSITION;
   WindowPlacement.showCmd := SW_SHOWNA;
   WindowPlacement.ptMinPosition := Point(Screen.WorkAreaLeft + Screen.WorkAreaWidth,
                                          Screen.WorkAreaTop + Screen.WorkAreaHeight);
   WindowPlacement.rcNormalPosition := Rect(Self.Left, Self.Top, Self.Left + Self.Width, Self.Top + Self.Height);
   WindowPlacement.ptMaxPosition := Point(Screen.WorkAreaLeft, Screen.WorkAreaTop);
   SetWindowPlacement(Handle, @WindowPlacement);
 end;
 inherited;
end;

:))

---

inic   (2004-09-15 17:23:00) [2]

Неужели в FAQе нет этого. Или поищи в форумах строчку Tray

---

WondeRu   (2004-09-15 17:12:00) [3]

Думаю это провокация

---

Наверх