Текущий архив: 2004.01.13;
Скачать: CL | DM;

Вниз

System TRAY   Найти похожие ветки 

← →
Darmen   (2003-12-27 19:32) [0]

Подскажите, как сделать ТРЕЙ на прогу?

---

← →
DDA   (2003-12-27 21:35) [1]



const
WM_MYICONMSG = WM_USER + 1;

private
procedure WMMyIconMsg(var Message:TMessage); message WM_MYICONMSG;

//--этот код при нажатии на иконку в трее левой и правой кнопкой
procedure TForm1.WMMyIconMsg(var Message:TMessage);
var nid:NOTIFYICONDATA;
i:int64;
begin

if Message.LParam=WM_LBUTTONDBLCLK then
begin

nid.cbSize:=sizeof(nid);
nid.Wnd:=Handle;
nid.uID:=1;
Shell_NotifyIcon(NIM_DELETE,@nid);

ShowWindow(Application.Handle,SW_SHOWNORMAL);
end;

if Message.LParam=WM_RBUTTONDOWN then
begin
//---при нажатии на правую кнопку на иконке появляется своё меню
PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);

end;
end;

//--этот код прописать при сворачивании формы

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
var
nid:NOTIFYICONDATA;
begin
nid.cbSize:=sizeof(nid);
nid.Wnd:=Handle;
nid.uID:=1;
nid.uFlags:= NIF_ICON or NIF_MESSAGE or NIF_TIP;
nid.uCallbackMessage:=WM_MYICONMSG;
nid.hIcon:=Application.Icon.Handle;
nid.szTip:="Здесь вписать названия хинта всплывающийся при наведении на иконку в трее";
Shell_NotifyIcon(NIM_ADD,@nid);
ShowWindow(Application.Handle,SW_HIDE);
Application.Minimize;
end;
//----------------------------------



---

Страницы: 1 вся ветка

Текущий архив: 2004.01.13;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.014 c