Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как поместить иконку в TrayBar

Delphi , Рабочий стол , TrayBar

Как поместить иконку в TrayBar

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


procedure TForm1.Button1Click(Sender: TObject);
var
  no: TNotifyIconData;
  Hicon1: HIcon;
begin
  //Помещение иконки в Tray Bar
  HIcon1:=ExtractIcon(Handle,'i:\arw01lt.ico',0);
  with no do
  begin
    cbSize:=Sizeof(TNotifyIconData);
    Wnd:=Handle;
    uID:=0;
    UFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;
    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. В качестве параметров функции нужно указать две вещи.

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

Статья Как поместить иконку в TrayBar раздела Рабочий стол TrayBar может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TrayBar ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 10:05:40/0.0070610046386719/0