Форум: "WinAPI";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];
Вниз
Как присвоить хинту иконки программы в трее значение переменной? Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.082 c
