Добавил в upload (компоненты) новую версию TrayIcon.
Исправлена работа точки doHint, добавлена точка do Icon (позволяет менять иконки в трее "на лету").

Spec, небольшая информация: иконку в трее УЖЕ можно менять через doIcon для MainForm.
Dilma чего-то где-то подправил - и стало можно
У Вас, видимо, другая фича - иконка трэя может отличаться от парента.

Предлжение: логично было бы объединить две фичи. Ну и проверить на совместимость Ваш элемент с новым MainForm. Просто не помню, где Dilma чего менял (а он менял и MainForm и TrayIcon, по сравнению с 142-й)

А причем здесь народ

Используй для этого какую не - будь качалку (FlashGet).

Я её скачал но она у меня не работает. Вот Какую схему использовал.
[code:1]Add(MainForm,61628,77,140) {
Left=312
Top=100
Width=271
Height=565
Font=[Arial,8,0,0,1]
Point(doIcon)
link(onCreate,8445740:doHide,[(170,181)(170,279)])
}
Add(Button,7754571,28,315)
{
Left=25
Top=325
Font=[MS Sans Serif,8,0,0,1]
link(onClick,8991844:doData,[])
}
Add(DoData,8991844,147,315)
{
link(onEventData,8445740:doIcon,[(205,321)(205,286)])
link(Data,12873092:Bitmap,[(153,303)(97,303)])
}
Add(Bitmap,12873092,91,259)
{
}
Add(TrayIcon,8445740,231,266)
{
}
[/code:1]

Эдик, а у меня работает:
[code:1]Add(MainForm,61628,203,196) {
Left=312
Top=100
Width=271
Height=565
Font=[Arial,8,0,0,1]
Visible=1
Point(doIcon)
link(onCreate,8445740:doHide,[])
}
Add(TrayIcon,8445740,273,224)
{
link(onDblClick,8445740:doShow,[(315,237)(315,214)(263,214)(263,230)])
}
Add(Switch,2283722,147,238)
{
Point(DataOn)
Point(DataOff)
link(onSwitch,8445740:doIcon,[])
link(DataOn,11342182:Icon,[])
link(DataOff,16708346:Icon,[])
}
Add(Timer,4876406,91,238)
{
link(onTimer,2283722:doSwitch,[])
}
Add(Icon,11342182,147,140)
{
}
Add(Icon,16708346,154,182)
{
}[/code:1]Если подставить иконки, конечно....

В HiAsm есть чудесная кнопка, которая умеет качать любые файлы с любых сайтов без всяких FlashGet-ов:
[code:1]Add(SDKBtn,13551525,91,266) {
Script='function Click()',' ExecCmd("dmaster")','end'
Caption="секрет"
}
[/code:1]

Spec,
Мне показалось, что противоречий с тем, что сделал Dilma у Вас нет. Если в Ваш код вставить такое (банальный метод смешения):
[code:1]function THITrayIcon.OnMessage; begin
Result := false;
Case Msg.message Of
..................
WM_SETICON:
begin
FTrayData.hIcon := ParentForm.Icon;
Shell_NotifyIcon(NIM_MODIFY,@FTrayData);
end;
..................
End;
if not Result then
Result := OldMessage(Msg,Rslt);
end;[/code:1]
то работают, вроде, оба варианта.

[b]Dilma[/b], что скажите :?: В Вашем исполнении, получается, надо просто добавить doIcon, с соответствующим сопровождением в определении класса и INI-файле....

Мне потребовалась анимация иконки в трее (частой сменой иконок), вот и пришлось вносить изменения. Пробовал использовать точку в MainForm, но получилось очень неудобно, приходилось шаманить с бубном (задавать новую иконку через doIcon, потом последовательно использовать doHide и doCapture чтобы она там в трее отрисовалась, при этом иконка перемаргивала и при большой частоте кадров анимация получалась дерганной). Сейчас всё плавно анимируется. Кроме того, иконка в трее не всегда должна соответствовать иконке MainForm.

согласен.

Spec, на всякий случай....
Действительно, было перемаргивание, в связи с чем Dilma и вносил изменения. Теперь нету.

Про разные иконки - конечно согласен. Тем более, что Ваше добавление не вносит дополнительных кодов программу для тех, кто не пользуется TrayIcon.doIcon

Добавлено.

А ты где живешь? Может он, сервер, в другие страны не даёт качать.

Действительно работает.

Мы тоже в Russian Federation, а скачали без проблем. Я, по-моему, вообще просто на ссылку нажал из броузера HiAsm

Но Dilma, кажется, уже выложил объединение по reg.php

>А ты где живешь? Может он, сервер, в другие страны не даёт качать.
Дело не в этом, а в волшебном поле referer... Либо настрой качалку, чтобы она поле referer правильно передавала, либо отключи качалки и качай через IE...