| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Меню из SySTray [D5, D6, Win95/98]

Fog ©   (2002-08-22 11:55:00) 

Мне многие пытались объснить как сделать так чтобы из иконки при правом клике вылезало меню... У меня есть следующея процидура

procedure TForm1.IconClick(Message: TMessage);
begin
if message.LParam = WM_LBUTTONDBLCLK then
Form1.Show;
end;

И все работает! Но как мне сделать так чтобы меню выскакивало именно где кликнула мышь...

---

Song   (2002-08-26 21:31:00) [1]

http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1020241631

---

s.kaster   (2002-08-26 20:36:00) [2]

есть хорошие компоненты (ABF non-visual)

---

Игорь Шевченко   (2002-08-22 13:44:00) [3]

Пачеко, Тейксейра "Delphi 5. Руководство разработчика" - там все написано, как вызывать меню из иконки в Tray

---

easy   (2002-08-22 12:04:00) [4]

procedure TForm1.button1Click(Sender: TObject);
var P : TPoint;
begin
GetCursorPos(p);
SetForegroundWindow(tform1.Handle);
PopupMenu1.Popup(P.X, P.Y);
end;

---

Наверх