SystemTrey

[ben95]

во вкладке additional должен быть элемент
SystemTrey но его там нет(использую дельфий 7)можноли его туда каким либо методом добавить???

[Квэнди]

в Delphi 7 его вроде и не должно быть.
Используйте либо RxLib (хотя только ради размещения в трей это глупо)
или ручками


Для добавления иконки нужно сперва подключить модуль ShellAPI в раздел uses, а затем написать следующий код по нажатию на кнопку:



procedure TForm1.Button1Click(Sender: TObject);
var
no: TNotifyIconData;
Hicon1: HIcon;
begin
//Помещение иконки в Tray Bar
HIcon1:=ExtractIcon(Handle,'i:\arw0 1lt.ico',0);
with no do
begin
cbSize:=Sizeof(TNotifyIconData);
Wnd:=Handle;
uID:=0;
UFlags:=NIF_MESSAGE+NIF_ICON+NIF_TI P;
SzTip:='Traybar Tip';
HIcon:=HIcon1;
//Определяемое пользователем сообщение
uCallBackMessage:=WM_USER+0;
end;
Shell_NotifyIcon(NIM_ADD,@no);
end;




Для того, чтобы удалить иконку обработайте нажатие второй кнопки:



procedure TForm1.Button2Click(Sender: TObject);
var
no: TNotifyIconData;
begin
//Удаление иконки
with no do
begin
cbSize:=Sizeof(TNotifyIconData);
Wnd:=Handle;
uID:=0;
end;
Shell_NotifyIcon(NIM_Delete,@no);
end;




Для добавления, удаления или редактирования иконок на TrayBar'e используем специальную API функцию - Shell_NotifyIcon. Как вы уже прочитали для того, чтобы ею воспользоваться, нужно сначала подключить модуль ShellAPI в разделе uses. В качестве параметров функции нужно указать две вещи.

Сначала сообщение, которое мы посылаем, определяющее необходимое действие над иконкой. Этот параметр может принимать одно из следующих значений:
NIM_ADD - добавляет иконку в область TrayBar'a
NIM_DELETE - соответственно, удаляет
NIM_MODIFY - если задать это значение, можно будет модифицировать иконку
В качестве второго параметра передаётся структура NOTIFYICONDATA, которая содержит сведения об иконке. Эта структура обладает следующими полями:
cbSize - это размер структуры в байтах
hWnd - дескриптор окна, которое будет получать сообщения ассоциированные с иконкой на TrayBar'e
uID - идентификатор иконки на TrayBar'e
uFlags - массив флагов, значение этого поля может комбинироваться из следующих констант:
NIF_ICON - элемент структуры hIcon будет задействован
NIF_MESSAGE - элемент структуры uCallbackMessage будет задействован
NIF_TIP - - элемент структуры szTip будет задействован
uCallbackMessage - идентификатор сообщения. Система использует этот идентификатор, когда сообщение посылается окну, обозначенному в поле hWnd. Это сообщение посылается, когда происходит событие мыши над областью иконки.
hIcon - дескриптор задаваемой иконки
szTip - всплывающая подсказка, появляющаяся над областью иконки

DW

[SunKnight]

В Делфи такого компонента с роду небыло, это в Visual C++ есть.
Квэнди спасибо за инфу.

[ben95]

цитирую из книги дельфий от фленова !!!но там описывается дельфий 2006 это из книги bibliya Delphi

[Квэнди]

Этот компонент децствительно есть в Delphi >7

[FaTaL]

В Delphi 7 нет компонента работающего с треем! Я исользую RXLib, работает прекрасно. Ни раз не подводила в отличии от Delphi 2006 TTray!

[BOBAH13]

Та такой компонент писать руками часик - чтобы получить довольно хороший результат анимации и т.п.

[Dmitriy_ZDO]

Привет!
Лично я пользуюсь CoolTrayIcon'ом - для моих скромных потребностей весьма хватает. TTray в новой Delphi не видел, характеризовать не буду, но по моему, CoolTrayIcon - очень даже нормальный компонент.

[Stilet]

Пользуюсь Shell_NotifyIcon и больше от компонентов не зависю(шу)
Рекомендую всем и каждому.