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

Вниз

Колесико над иконкой в трее   Найти похожие ветки 

 
Turbid ©   (2006-03-17 11:32) [0]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ShellApi, StdCtrls;

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
   procedure WM_ICON(var Msg: TMessage); message WM_USER + 1;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 IconData: TNotifyIconData;
begin
 with IconData do
 begin
   cbSize := SizeOf(IconData);
   Wnd := Form1.Handle;
   uID := 1;
   uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
   hIcon := Application.Icon.Handle;
   uCallbackMessage := WM_USER + 1;
   szTip := "TrayIcon";
 end;
 Shell_NotifyIcon(Nim_Add, @IconData);
end;

procedure TForm1.WM_ICON(var Msg: TMessage);
begin
 case msg.LParam of
   WM_LBUTTONDOWN: ShowMessage("LMouse!");
   WM_RBUTTONDOWN: ShowMessage("RMouse!");
   WM_MBUTTONDOWN: ShowMessage("MMouse!");
   WM_MOUSEWHEEL: ShowMessage("Wheel!!!"); // ???!!!
 end;
end;

end.

Вопрос такой, почему последнее сообщение не отлавливается и как вообще узнать о кручении колесиком мыши над иконкой в трее. Заранее благодарен.


 
Fay ©   (2006-03-17 12:31) [1]

Так и не должно. Только

MK_CONTROL The CTRL key is down.
MK_LBUTTON The left mouse button is down.
MK_MBUTTON The middle mouse button is down.
MK_RBUTTON The right mouse button is down.
MK_SHIFT The SHIFT key is down.
MK_XBUTTON1 Windows 2000/XP: The first X button is down.
MK_XBUTTON2 Windows 2000/XP: The second X button is down.


 
rem2   (2006-03-17 14:22) [2]

Ставь хук мыш и когда она находится над иконкой в трее отлавливай сообщение


 
Turbid ©   (2006-03-17 16:41) [3]

Это ограничение шелла? Если можно, то чуть поподробней про хук.



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

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

Наверх




Память: 0.47 MB
Время: 0.05 c
2-1148550915
Alpine
2006-05-25 13:55
2006.06.11
Вопрос по генераторам


15-1147795541
TUser
2006-05-16 20:05
2006.06.11
Наместник Императора :)


15-1147602111
k2
2006-05-14 14:21
2006.06.11
Трудовой кодекс


2-1148540655
rra
2006-05-25 11:04
2006.06.11
Ошибка закрытия основной формы из другой...


15-1147796075
DillerXX
2006-05-16 20:14
2006.06.11
Лого из Delphi 4