Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.11;
Скачать: CL | DM;

Вниз

Пресловутый 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;


 
Виктор Щербаков ©   (2002-02-11 14:57) [1]

GetCursorPos(Coord);
SetForegroundWindow(MainForm.Handle);
PopupMnu.Popup(Coord.X, Coord.Y);
SetForegroundWindow(MainForm.Handle);

Должно работать. По крайней мере у меня глюков не было.


 
Юрий Зотов ©   (2002-02-11 17:04) [2]

Сразу после PopupMnu.Popup пошлите собственному окну WM_NULL:

PostMessage(Handle, WM_NULL, 0, 0);

И меню должно нормально заработать.


 
zoid ©   (2002-02-12 08:22) [3]

>>Виктор Щербаков
Спасибо, помогло.



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
1-32818
Dim!S
2002-04-01 12:58
2002.04.11
Задание маски в TMaskEdit


1-32727
ola
2002-03-29 06:04
2002.04.11
Help!!!! Помогите, уважаемые мастера....


3-32640
Malder
2002-03-15 20:45
2002.04.11
Ограничение полномочий пользователей...


4-33021
DelBoy
2001-12-15 21:05
2002.04.11
Приложение - Агент


7-32991
evgeg
2002-01-18 12:41
2002.04.11
Накладные расходы по вызову функции из dll