[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[] в описании структуры...