|
|
#1
|
||||
|
||||
Опять про трей!
Доброго всем дня. Такой вопрос. Как мне проще вывезти информацию в трей такого вида;
Код:
szTip:= ('Такое число: '+(Edit1.Text)+'); Заранее благодарен за помощь. |
#2
|
|||
|
|||
В общем случае - см тут: https://docs.microsoft.com/en-us/win...ll_notifyicona
В частном, в зависимости от того, какой компонент используешь, там может быть удобный враппер для этого вызова. |
#3
|
||||
|
||||
Цитата:
Доброго вечера. Кто-то весь код выкладывает, а я уж слишком минимизировал. Вот так я хочу получить подсказку. Код:
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; |
#4
|
|||
|
|||
Ну, на первый взгляд все правильно.
Только в строке 13 там "плюс апостроф" в конце лишний. |
#5
|
||||
|
||||
Цитата:
Цитата:
Код:
Unit1.pas(275): Incompatible types: 'Array' and 'String' |
#6
|
|||
|
|||
Попробуй так:
Код:
szTip:= PChar('Такое число: '+(Edit1.Text)+); |