|
#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)+); |
#7
|
||||
|
||||
Цитата:
Ругается. Код:
Unit1.pas(275): Expression expected but ')' found |
#8
|
||||
|
||||
Код:
szTip:= 'Такое число: '+PChar(Edit1.Text); Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#9
|
||||
|
||||
Цитата:
Теперь на тип данных ругается! Код:
Unit1.pas(275): Incompatible types: 'Array' and 'String' |
#10
|
|||
|
|||
Попробуй всю строку завернуть в PChar:
Код:
szTip:= PChar('Такое число: '+Edit1.Text); |
#11
|
||||
|
||||
Цитата:
Код:
Unit1.pas(275): Incompatible types: 'Array' and 'PAnsiChar' |
#12
|
||||
|
||||
Я аж дельфи запустил...
Код: Код:
var a:TNotifyIconData; s:string; begin s:='some text '+Form1.Caption; move(s[1],a.szTip[0],max(128,Length(s))); ShowMessage(a.szTip); end; Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#13
|
||||
|
||||
Цитата:
Я хочу сделать примерно как у уровня громкости в трее, навел курсор, видишь уровень. Нет необходимости открывать приложение. Всплывающая подсказка. Уже чет и надежда кончается. |
#14
|
||||
|
||||
Цитата:
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#15
|
||||
|
||||
По сути важна только вот эта строчка:
move(s[1],a.szTip[0],max(128,Length(s))); Ну и вместо max естественно надо использовать min Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |