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

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