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

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

Афоризм
Дураки от несчастной любви стреляются. Умные пишут стихи. Самые умные не влюбляются.
 
Поиск


 
Рассылка
| Soft-Ежедневник - обзор программ прямо к Вам на e-mail
 
 
Полезное!
 
7 лучших
  Фильм "Инвалиды России", прошлое и настоящее
  Алмазный инструмент
  Раскрутка, продвижение и оптимизация сайтов ( проектов ) в Тольятти
  Ntl-M Webpage
  Clubmasters DJ School Школа Ди-джеев в Санкт-Петербурге
  
  
 
  Библиотека > программирование > 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 | 3 | >

Arthurneomy | 21-05-20 05:53
https://re-port.ru/uploads/content/cas2_28-i37346.JPG
Как устроено заведение казино

Без часов и окон а вы и не замечали ?

Зал в казино должен вызывать у игрока эйфорию и восторг. То есть, исключительно положительные эмоции, которые сделают человека счастливым. А, как всем хорошо известно, счастли&#10


Arthurneomy | 03-05-20 22:33
https://101zabava.club/wp-content/uploads/2019/04/27-316.jpg

Секс-чат и бесплатные лайв-камеры с девушками. Добро пожаловать на BongaCams – самый популярный эротический онлайн-видеочат, где лайв-кам-дамы точно не дадут тебе заскучать! Зарегистрируйся в нашем секс-чате бесплатно и познакомься с тысячами потрясающих моделей со всех уголков мира, готовых подарить тебе только приятные эмоции и ощущения.
Источник:


http://porntube24.ru/2020/04/08/pervyj-raz-v-anal-russkaya-devushkoj-umolyaet-hvatit-no-on-hochet-eshhe/
- Твоя эротическая фантазия

==================
https://bit.ly/2KhYaIy - Знакомства 18+
https://bit.ly/2y2MVRE - Казино для Ценителей.
https://bit.ly/2KgSJcE - 18+ Секс -чат


KennethVix | 22-04-20 22:16
<a href=https://www.etsy.com/people/thewrc5o?ref=pr_profile>Rox Casino</a> это место где вы отлично проведете время. Вы можете играть с вашего телефона. Бонусы при пополнении и подарки на день рождение. Поддержка 24 часа. Мгновенный вывод средств. Приходи и выигрывай!


Arthurneomy | 05-04-20 11:30
https://cdn.minval.az/2019/10/a15.png


Ресторан Теремок - мы ждём именно тебя!
Нет сомнений Жми... - http://bit.ly/2OJw8bx
Бесплатное и оплачиваемое обучение, можно без опыта работы
Компенсация проживания в общежитии
Доплата за стаж от 3-х месяцев работы
Опыт работы не обязателен (можно вообще без опыта, и без релевантного в том числе)
БАНЗАЙ! Найди свой #Теремок
Источник: https://vk.com/@jobonly4you-rabota-v-restorane-teremok


IgorLet | 02-03-20 12:15
Как правило, средний максимальный выигрыш, разрешенный в приветственном бонусном раунде, как правило, значительно ниже, говорит Маркус Жалмерот, основатель New Casinos Ltd. Основатель сравнивает данные, собранные NewCasinosOnlinem, для новых сайтов онлайн-казино. Таким образом, бонусы Boom Casino могут считаться более ценными для некоторых игроков.
<a href=http://vseogirls.ru/bonusyi-v-kazino-kosmolot>регистрация космолот</a>


ZhekaCof | 29-11-19 11:19
Я не спумер, мне просто кушать хочется. Проверенные лицензионные игровые слоты здеся - <a href=https://slots-info.ru/>https://slots-info.ru/</a>


Karenker | 22-11-19 21:15
28 Sep 2018 When it comes to pests and critters, the last thing any of us wants is to find unwanted guests taking up residence in the kitchen. While there are
<a href=http://howtogetridofantsinhouse.ga/signs-of-alcoholism-know-the-warning-how-to-get-rid-of-ants-in-my-house-signs-of>how to get rid of ants in house</a>


Pupaslisa | 04-11-19 20:21
Умоляю, посмотрите <a href=https://eldoradocasinoslot.ru/>обзор Эльдорадо казино</a>


Dadgarly | 19-10-19 22:02
Тест


BoBKax | 15-10-19 01:18
Тест

Имя:
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 пройдет в Сочи

 БИБЛИОТЕКА

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

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

 
Рекомендую!



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