| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как присвоить хинту иконки программы в трее значение переменной? [D7, WinXP]

Chaser ©   (2004-12-08 17:14:00) 

Вопрос: создаю иконку программы в трее. Пытаюсь сделать хинт при наведении на нее мыши.
Если написать фиксированный текст szTip:='My Program', то все работает.
А если к этому добавить строку, содержащюю текстовую переменную, то выдает ошибку (несовместимые типы Array и String).

procedure TForm1.CreateTrayIcon(n: integer);
var
nidata: TNotifyIconData; // икона
s: array [0..63] of Char;
ss: string;
begin
s:='- Пользователь ххх';
ss:='- Пользователь ххх';
with nidata do
 begin
 cbSize:=SizeOf(TNotifyIconData);
 Wnd:=Self.Handle;
 uID:=n;
 uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
 uCallBackMessage:=WM_MYTRAYNOTIFY;
 hIcon:=Application.Icon.Handle;
 szTip:='My Program '+s;
 end;
Shell_NotifyIcon(NIM_ADD, @nidata);
end;

Подскажите плиз, как решить проблему.

---

Chaser   (2004-12-09 10:27:00) [1]

Отвечаю сам:

s: string;
...
StrPCopy(szTip,s);
...

---

Leonid Troyanovsky   (2004-12-09 09:40:00) [2]

> Chaser ©   (08.12.04 17:14)  

> Подскажите плиз, как решить проблему.


http://www.rsdn.ru/Forum/?mid=897503

И RTFM Character pointers and character arrays.

--
С уважением, LVT.

---

@BraIN   (2004-12-08 17:23:00) [3]

s и ss можно перевести в константы:


procedure TForm1.CreateTrayIcon(n: integer);
const
 s = '- Пользователь ххх';
 ss = '- Пользователь ххх';
var
 nidata: TNotifyIconData;
begin
...


---

Наверх