Скачать: CL | DM;

Как присвоить хинту иконки программы в трее значение переменной?   Найти похожие ветки 

← →
Chaser ©   (2004-12-08 17:14) [0]

Вопрос: создаю иконку программы в трее. Пытаюсь сделать хинт при наведении на нее мыши.
Если написать фиксированный текст 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;

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

---

← →
@BraIN ©   (2004-12-08 17:23) [1]

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


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


---

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

> Chaser ©   (08.12.04 17:14)  

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


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

И RTFM Character pointers and character arrays.

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

---

← →
Chaser ©   (2004-12-09 10:27) [3]

Отвечаю сам:

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c