all__
Админ
Сообщений: 850
Зарегистрирован: 01.2010
|
RE: Как поместить иконку в трей ? (опять)
В процессе работы с компонентом обнаружил несколько проблем, вот решение первой:
Скрыть PopUp при потере фокуса
Вторая проблема связана с тем, что приложение не дает Windows XP отключиться.
Лечится добавлением в класс обработчика события WM_QUIT:
Код:
procedure TSimpleTray.SysTrayIconMsgHandler(var Msg: TMessage);
var pt:TPoint;
begin
case Msg.lParam of
WM_MOUSEMOVE:;
WM_LBUTTONDOWN: begin
ShellExecute(appHANDLE,'',pchar(ExtractFilePath(Application.ExeName) + 'ScreenSender.exe'),'','',0);
end;
WM_LBUTTONUP:;
WM_LBUTTONDBLCLK:;
WM_RBUTTONDOWN:;
WM_RBUTTONUP: begin
GetCursorPos(pt);
Popup.Popup(pt.X,pt.Y);
end;
WM_QUIT: Free; // Нужно добавить эту строку!
end;
end;
Лучшая благодарность - "Мне нравится", +1 или Like! Вверху страницы.
(Последний раз сообщение было отредактировано 18.09.2010 в 9:31, отредактировал пользователь all__.)
|
|
| 18.09.2010 9:23 |
|
