Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Рабочий стол
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 17.04.2007, 23:09
Аватар для X-rem
X-rem X-rem вне форума
Начинающий
 
Регистрация: 06.04.2007
Адрес: Питер
Сообщения: 119
Репутация: 10
Вопрос Click на иконке в трее

Во короче беда.
Как сделать так чтобы когда кликаешь по иконке в трее рядом появлялась ну... эта херь. забыл как ёё (popup если кто не въехал)

Если не сложно то и про Hint расскажите.

http://www.free4up.com/ShowImage.asp...3131174190.JPG
Красное это то что я хочу
А зелёное расскажите по желанию.
__________________
[ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ]
Delphi 7 user
  • Indy 10.5.5
  • AbfEffects & Controls
  • LockBox
  • AlphaControls
  • Eagle CDK

ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738)
Ответить с цитированием
  #2  
Старый 18.04.2007, 06:41
TitiS TitiS вне форума
Новичок
 
Регистрация: 29.12.2006
Сообщения: 62
Репутация: 10
По умолчанию

Контексное меню называется =)

Вот смотри: http://denasoft.xost.ru/tray.txt

Чтобы PopupMenu вызывался доработать код чем то вроде этого:
Код:
procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
var MouseCo: TPoint;
begin
GetCursorPos(MouseCo);
case Msg.LParam of
WM_LBUTTONUP: Form1.Visible:=true;
WM_RBUTTONUP: PopupMenu1.Popup(MouseCo.X, MouseCo.y);
end;
end;
Ответить с цитированием
  #3  
Старый 18.04.2007, 09:02
Аватар для X-rem
X-rem X-rem вне форума
Начинающий
 
Регистрация: 06.04.2007
Адрес: Питер
Сообщения: 119
Репутация: 10
Плохо

Цитата:
Сообщение от TitiS
Контексное меню называется =)

Вот смотри: http://denasoft.xost.ru/tray.txt

Чтобы PopupMenu вызывался доработать код чем то вроде этого:
Код:
procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
var MouseCo: TPoint;
begin
GetCursorPos(MouseCo);
case Msg.LParam of
WM_LBUTTONUP: Form1.Visible:=true;
WM_RBUTTONUP: PopupMenu1.Popup(MouseCo.X, MouseCo.y);
end;
end;

БЛИН НЕ РАБОТАЕТ !
Пришли исходник.
__________________
[ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ]
Delphi 7 user
  • Indy 10.5.5
  • AbfEffects & Controls
  • LockBox
  • AlphaControls
  • Eagle CDK

ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738)
Ответить с цитированием
  #4  
Старый 18.04.2007, 11:57
TitiS TitiS вне форума
Новичок
 
Регистрация: 29.12.2006
Сообщения: 62
Репутация: 10
По умолчанию

Пожалуйста:
http://denasoft.xost.ru/cod.zip

через неделю удалю...
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:26.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter