Показать сообщение отдельно
  #16  
Старый 06.12.2019, 20:09
Аватар для fofka
fofka fofka вне форума
Начинающий
 
Регистрация: 12.10.2008
Сообщения: 163
Репутация: -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
Всем большое спасибо за внимание и помощь.
Ответить с цитированием