[fofka]

Доброго всем дня. Такой вопрос. Как мне проще вывезти информацию в трей такого вида;

Код:

szTip:= ('Такое число: '+(Edit1.Text)+');

Ткните носом как лучше вывести подсказку.
Заранее благодарен за помощь.

[lmikle]

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

[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;

[lmikle]

Ну, на первый взгляд все правильно.
Только в строке 13 там "плюс апостроф" в конце лишний.

[fofka]

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

Ну, на первый взгляд все правильно.
Только в строке 13 там "плюс апостроф" в конце лишний.

Вроде правильно. Но ругается компилятор на тип.

szTip:= ('Такое число: '+(Edit1.Text)+);

Код:

Unit1.pas(275): Incompatible types: 'Array' and 'String'

Благодарю за внимание.

[lmikle]

Попробуй так:

Код:

szTip:= PChar('Такое число: '+(Edit1.Text)+);

Там что-то типа Char* или просто Char[] в описании структуры...

[fofka]

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

Попробуй так:

Код:

szTip:= PChar('Такое число: '+(Edit1.Text)+);

Там что-то типа Char* или просто Char[] в описании структуры...

Ругается.

Код:

Unit1.pas(275): Expression expected but ')' found

[Aristarh Dark]

Код:

szTip:= 'Такое число: '+PChar(Edit1.Text);

[fofka]

Сообщение от Aristarh Dark

Код:

szTip:= 'Такое число: '+PChar(Edit1.Text);

Спасибо за помощь, но не то.
Теперь на тип данных ругается!

Код:

Unit1.pas(275): Incompatible types: 'Array' and 'String'

[lmikle]

Попробуй всю строку завернуть в PChar:

Код:

szTip:= PChar('Такое число: '+Edit1.Text);

если не поможет, то придется копировать. Вот тут, вроде, примерчик есть: https://www.swissdelphicenter.ch/en/...de.php?id=1164

[fofka]

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

Попробуй всю строку завернуть в PChar:

Код:

szTip:= PChar('Такое число: '+Edit1.Text);

если не поможет, то придется копировать. Вот тут, вроде, примерчик есть: https://www.swissdelphicenter.ch/en/...de.php?id=1164

Благодарю за внимание. Ругается на типы.

Код:

Unit1.pas(275): Incompatible types: 'Array' and 'PAnsiChar'

Попробую разобраться с помощью приведенного Вами примера.

[Aristarh Dark]

Я аж дельфи запустил...

Код:

Код:

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;

Результат на картинке

[fofka]

Сообщение от Aristarh Dark

Я аж дельфи запустил...

Код:

Код:

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;

Результат на картинке

Спасибо за помощь. Но чуток не подходит.
Я хочу сделать примерно как у уровня громкости в трее, навел курсор, видишь уровень. Нет необходимости открывать приложение. Всплывающая подсказка. Уже чет и надежда кончается.

[Aristarh Dark]

Я хочу сделать примерно как у уровня громкости в трее, навел курсор, видишь уровень. Нет необходимости открывать приложение. Всплывающая подсказка. Уже чет и надежда кончается.

Я тебе дал пример как заполнить поле szTip в структуре. Сообщение это чисто для проверки что поле заполнено.

[Aristarh Dark]

По сути важна только вот эта строчка:
move(s[1],a.szTip[0],max(128,Length(s)));
Ну и вместо max естественно надо использовать min