Форум: "WinAPI";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
ВнизПресловутый TrayIcon - проблема с PopupMenu Найти похожие ветки
← →
zoid (2002-02-11 14:49) [0]суть - вызываю на иконке в трее попапменю, и чтобы оно исчезло, обязательно надо щелкнуть по какому-нить пункту, иначе это меню так и висит там. вот код...
const
wm_IconMessage = wm_User;
type
TMainForm = class(TForm)
...
...
private
nid: TNotifyIconData;
public
procedure IconTray(var Msg:TMessage);
message wm_IconMessage;
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
{$R Icon.RES}
procedure TMainForm.IconTray(var Msg:TMessage);
var
Coord:TPoint;
begin
if Msg.LParam= wm_rbuttondown then
begin
GetCursorPos(Coord);
PopupMnu.Popup(Coord.X,Coord.Y);
end;
if Msg.LParam=wm_lbuttondblclk then pupPrefClick(self);
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
Icon.Handle:=LoadIcon(hinstance,"SILENT");
nid.cbSize:=sizeof(nid);
nid.Wnd:=Handle;
nid.uID:=1;
nid.uCallbackMessage:=wm_IconMessage;
nid.hIcon:=Icon.Handle;
nid.szTip:= "Running...";
nid.uFlags:=nif_Message or nif_Icon or nif_Tip;
Shell_NotifyIcon(NIM_ADD,@nid);
end;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c