[X-rem]

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

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

http://www.free4up.com/ShowImage.asp...3131174190.JPG
Красное это то что я хочу
А зелёное расскажите по желанию.

[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;

[X-rem]

Сообщение от 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;

БЛИН НЕ РАБОТАЕТ !
Пришли исходник.

[TitiS]

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

через неделю удалю...