|
#16
|
||||
|
||||
Возможно закидаете шапками, но сделал так. Работает.
Код:
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 Всем большое спасибо за внимание и помощь. |