[fofka]

Сообщение от lmikle

В общем случае - см тут: https://docs.microsoft.com/en-us/win...ll_notifyicona
В частном, в зависимости от того, какой компонент используешь, там может быть удобный враппер для этого вызова.

Доброго вечера. Кто-то весь код выкладывает, а я уж слишком минимизировал. Вот так я хочу получить подсказку.

Код:

procedure TForm1.CreateTrayIcon;
 var
  nidata : TNotifyIconData;
   begin
   with nidata do
     begin
     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:= ('Такое число: '+(Edit1.Text)+');
   end;
    Shell_NotifyIcon(NIM_ADD, @nidata);   
 end;