Form. Отображение формы в трее.

[кусака44]

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

Кстати неплохо бы выделить спец раздел про формы, так много вопросов по теме .

[kropotkina-alice]

В трее или на панели задач?
Для панели задач решено:
http://www.programmersforum.ru/showthread.php?t=161761
А для "дурновкусия", коим является предлагаемый вами вариант (уж простите, но это так), есть простое объяснение (приведу цитату, которая все вам должна прояснить):

Никакого сворачивания окон в трей НЕ СУЩЕСТВУЕТ. Это только внешняя видимость, не более того. На самом же деле "сворачиваемые" окна никуда не сворачиваются, а просто становятся невидимыми. Одновременно в трей помещается значок (поэтому и возникает иллюзия "сворачивания в трей"). При движении и при щелчках мышки над этим значком одному из окон приложения (тому, чей хэндл указан в структуре NOTIFYICONDATA) автоматически посылается соответствующее сообщение, которое это окно может обрабатывать любым способом (например, оно может показать всплывающее меню, сделать видимым одно или несколько окон программы и т.п.).
Поэтому процедура "свернуть в трей" для ОДНОГО окна выглядит всегда одинаково:
1. Заполнить структуру NOTIFYICONDATA.
2. Вызвать функцию Shell_NotifyIcon.
3. Скрыть окно. Для форм Delphi это делается вызовом метода Hide (и никакие CreateParams не нужны), а окно Application скрывается вызовом функции ShowWindow.
Отсюда вытекает ответ на Ваш вопрос - как "свернуть в трей" ВСЕ окна программы: точно так же, как и ОДНО окно, только в п.3 невидимыми надо сделать ВСЕ формы программы, включая и окно Application.

[newerow1989]

Вот образец:

uses ShellAPI;

type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure WMICON(var msg: TMessage); message WM_USER;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
    TDUMMYUNIONNAME = record
    case Integer of
       0: (uTimeout: UINT);
       1: (uVersion: UINT);
    end;
    TNewNotifyIconData = record
       cbSize: DWORD;
       Wnd: HWND;
       uID: UINT;
       uFlags: UINT;
       uCallbackMessage: UINT;
       hIcon: HICON;
       szTip: array[0..127] of Char;
       dwState: DWORD;
       dwStateMask: DWORD;
       szInfo: array[0..255] of Char;
       DUMMYUNIONNAME: TDUMMYUNIONNAME;
       szInfoTitle: array[0..63] of Char;
       dwInfoFlags: DWORD;
    end;
***
procedure TForm1.Button1Click(Sender: TObject);
var nidata: TNewNotifyIconData;
begin
    With nidata do
    begin
       cbSize:=SizeOf(nidata);
       Wnd:=Handle;
       uID:=0;
       uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
       uCallBackMessage:=WM_USER;
       hIcon:=Icon.Handle;
       StrPCopy(szTip, 'Yes');
    end;
    Shell_NotifyIcon(NIM_ADD, @nidata);
end;

procedure TForm1.WMICON(var msg: TMessage);
begin
    MessageBox(0, 'SMS-ка пришла', 'Окно', 0);
end;

[кусака44]

Кропоткина-Алиса спасибо
Да, для панели задач, но про трей тоже интересно. (я попутал с треем)
( Я честно просматривал темы, но в середине пропустил пару страниц. )
Не вижу ничего плохого чтобы отображать вторую форму в трее.

newerow1989 спасибо.