Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 06.12.2019, 20:09
Аватар для fofka
fofka fofka вне форума
Начинающий
 
Регистрация: 12.10.2008
Сообщения: 156
Репутация: -1588
По умолчанию

Возможно закидаете шапками, но сделал так. Работает.
Код:
procedure TForm1.CreateTrayIcon;
var
   nidata : TNotifyIconData;
   s1: String;
begin
   with nidata do
     begin
     s1 := Edit1.Text ;
     cbSize := SizeOf(TNotifyIconData);
     Wnd := Self.Handle;
     uID := 1;          
     uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
     uCallBackMessage := WM_MYICONNOTIFY;
     hIcon := Application.Icon.Handle;
   
    szTip :='Моя прога. '+ #13 + 'Такое число: ';
    StrCat(szTip, @s1[1]); // Добавляем к szTip строку s1

    end;
    Shell_NotifyIcon(NIM_ADD, @nidata); 
 end;
При наведении курсора, получаю всплывающую подсказку в две строки:
"Моя прога"
"Такое число: " из Edit1
Всем большое спасибо за внимание и помощь.
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:52.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2019

ВКонтакте   Facebook   Twitter