ПРОГРАММ: 654 | СТАТЕЙ: 125 | КОДОВ: 3434   

    главная        новости        программы        библиотека        коды        рейтинг       форум   

Афоризм
Электричество окончательно вошло в нашу жизнь. Его проводят даже к стульям.
 
Поиск


 
Рассылка
| Soft-Ежедневник - обзор программ прямо к Вам на e-mail
 
 
Полезное!
 
7 лучших
  Ремонт мониторов
  Перевозка мебели Харьков
  Канцелярия для школы и офиса с доставкой по Киеву
  POLIKA.RU - Литературный клуб Полины Овчинниковой
  Канцтвары и доски для маркеров с доставкой.
  
  
 
  Библиотека > программирование > Delphiдобавить статью
Как поместить иконку в трей средствами Delphi?

Здесь я привожу ответ на интересующий многих вопрос: а как же поместить иконку в трей? Надо сказать, что это...
 
delphid.dax.ru
winsov.ru
10-05-2004
Версия для печати
печать

Здесь я привожу ответ на интересующий многих вопрос: а как же поместить иконку в трей? Надо сказать, что это довольно распространенный пример, и авторство его мне точно не известно, но помочь он Вам должен.

Обязательно включите в список подключаемых модулей, модуль ShellApi, иначе ничего работать не будет.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellApi; //!!

const
WM_NOTIFYTRAYICON = WM_USER + 1;

type
TForm1 = class(TForm)
procedure FormDestroy(Sender: TObject);

procedure FormCreate(Sender: TObject);
private
{ Private declarations }

procedure WMTRAYICONNOTIFY(var Msg: TMessage);
message WM_NOTIFYTRAYICON;

public
{ Public declarations }
end;

var
Form1: TForm1;
tray: TNotifyIconData;
TrayIcon: TIcon;

implementation

{$R *.dfm}

procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
begin
{обрабатываем события на иконке в трее}
case Msg.LParam of
WM_LBUTTONDOWN: Form1.Visible:=true;
WM_LBUTTONDBLCLK: {ваш код обработки события двойного нажатия на левую кнопку мыши}
WM_LBUTTONUP: {ваш код обработки события отпускания левой кнопки мыши}

WM_RBUTTONDOWN: {ваш код}
WM_RBUTTONDBLCLK: {ваш код}
WM_RBUTTONUP: {ваш код}

WM_MOUSEMOVE: {ваш код}
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
try
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
end;
Shell_NotifyIcon(NIM_DELETE, Addr(tray));
finally
Application.Terminate;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TrayIcon := Application.Icon;
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_NOTIFYTRAYICON;
hIcon := TrayIcon.Handle;
szTip := ("Это мое приложение в трее");
end;
Shell_NotifyIcon(NIM_ADD, Addr(tray));
end;

procedure TForm1.GoToTrayButtonClick(Sender: TObject);
begin
//сворачиваемся в Трей
Form1.Visible:=false;
end;


end.




Комментарии
Оставить комментарий
страница 1 | 2 | >

Qrllaw | 04-07-19 11:59
15 minutes in your doctors office and are covered by most insurance. effects of botoxВ® may spread hours to weeks after injection causing serious symptoms. alert your doctor right away, as difficulty swallowing, speaking, breathing, eye problems, or musc
<a href=http://botoxinjectionsites.cf/art/botox-injection-sites-for-migraine-headaches/>Botox injection sites for migraine headaches</a>


Dimon Emulk | 30-06-19 08:48
Вы когда-нибудь видели чтобы в Москве в конце июня была так холодно??? Бррр...
Вчера даже уронил свой Galaxy 9, и он перестал работать((
Спасибо ребятам из http://kupibystro.ru/galaxy - очень быстро доставили мне новый телефон, да и цена существенно ниже, чем в официальном магазине.


Poliakova#Galina[Rterovzseboqe | 27-06-19 14:02
Аналитика от спортивных экспертов

<a href=http://shopbet.ru>Express прогноз: статистика за Июнь 2019 Подробности по ссылке...</a>


MichaelUW | 25-06-19 20:43
<a href=http://www.youtube.com/watch?v=dhDCTOXVp4s>Pj masks</a>


DENWoob | 13-06-19 12:27
South End Veterinary Clinic is a full-service veterinary medical facility, located in Charlotte, NC. The professional and courteous staff at South End Veterinary Clinic seeks to provide the best possible medical care, surgical care and dental care for their highly-valued patients.
<a href=http://denta.top/art/local-pediatric-dentist/>Local pediatric dentist</a>


CocoLeatt | 31-05-19 05:05
The Womens Health Collaborative provides womens medicine in Rhode Island by women doctors, specializing in obstetrics, primary care and gastrointestinal medicine.
<a href=http://massage.nodes.top/art/prenatal-massage-prices/>Prenatal massage prices</a>


Natfus | 03-05-19 01:24
Советую сюда обратиться <a href=https://sector-pc.ru/remont-noutbukov><font color=black>Ремонт ноутбуков</font></a>


egebedivoneb | 08-04-19 09:03
http://theprettyguineapig.com/amoxicillin/ - Buy Amoxicillin <a href="http://theprettyguineapig.com/amoxicillin/">Buy Amoxicillin Online</a> brv.cgxs.mostinfo.net.pac.rb http://theprettyguineapig.com/amoxicillin/


EdwardUD | 05-02-19 19:43
Девочки привет) <a href=https://www.iherb.com/?rcode=POC073>ТЫЦ</a>
Натуральная косметика, натуральные добавки для здоровья, товары для малышей,
спортивное питание, для ваших питомцев и т.д.
более 30 тысяч товаров по вкусным ценам!
На 1-й заказ 10% скидки по коду POC073 (3 латинских быквы POC + 3 цифры 073)
<a href=https://www.iherb.com/?rcode=POC073>ПЕРЕЙТИ НА САЙТ</a>


antoha | 23-03-11 23:40
procedure TForm1.GoToTrayButtonClick(Sender: TObject);
begin
//сворачиваемся в Трей
Form1.Visible:=false;
end;

ошибку выбивает

Имя:
E-mail:
Сообщение:


Число:

   очистить

популярные статьи по теменовые статьи
Создание видео из фотографий в программе "ФотоШОУ"
Разное / Обработка фото и видео
Больница для компьютера
железо / Система
Чем так популярны социальные сети?
Разное / разное
Синхронизация данных с сотового телефона на ПК
железо / Мобильные устройства
Куплю хостинг
web - разработка / Хостинг

Опрос
На что Вы обращаете внимание в первую очередь при покупке товара в интернет-магазине?  
 
Комментарии и оценку пользователей
Наличие нескольких фотографий
Подробное и качественное описание
Условия доставки
Возможность покупки в кредит
 
Самое свежее  
 ПРОГРАММЫ

ICQ 8.0.5990
ICQ 8.0.5990

Mozilla Firefox 18.0.2
Mozilla Firefox 18.0.2

ArtMoney 7.40.4
ArtMoney 7.40.4

 НОВОСТИ

Хакерская атака на Google из Китая
Хакерская атака на Google из Китая

Мы победили! Олимпиада 2014 пройдет в Сочи
Мы победили! Олимпиада 2014 пройдет в Сочи

 БИБЛИОТЕКА

Создание видео из фотографий в программе "ФотоШОУ"
Создание видео из фотографий в программе "ФотоШОУ"

Больница для компьютера

 
Рекомендую!



Rambler's Top100

Copyright © 2004-2019 MostInfo.net  | связь с админом
При использовании материалов сайта ссылка на MostInfo обязательна.