Показать сообщение отдельно
  #8  
Старый 15.03.2013, 21:48
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от orbb
...когда установлю етот компоненет делфи покинул все осталъе компонентъи установлени от меня , примерно скаип компонент...
Его можно и не устанавливать - положить в папку с проектом (Cool)Trayicon.pas, прописать его в uses, в var записать TrayIcon: TTrayIcon;, в процедуре создания формы добавить следующее
Код:
...
TrayIcon:= TTrayIcon.Create(TrayIcon);
with TrayIcon do
begin
ToolTip:= 'Моя прога';
Icon:= Application.Icon;
Active:= True;
PopupMenu:= MyPopupMenu;
OnDblClick:= TrayIconOnDblClick;
...
end;
...
а при разрушении формы не забыть сделать это
Код:
TrayIcon.Destroy;
и всё. Зачем лисапет изобретать?
Ответить с цитированием