Как узнать, что курсор мыши над иконкой в трее?

← →
Turbid © (2006-03-31 22:34) [0]

У меня есть иконка в трее. Как узнать, что в данный момент курсор мыши находится над иконкой? Заранее благодарю.

← →
Turbid © (2006-04-01 02:08) [1]

Уже разобрался сам.

← →
Delphi5.01 © (2006-04-01 09:27) [2]

В таком случае всегда лудше писать ответ по двум причинам
1) Может кто-то тоже интересуеться и он не будет второй раз задавать вопрос
2) Сам как забудиш придеш суда и найдеш свой вопрос, мне самому часто помогало :-) Вот только не знаю сколько времени на этом сайте хранять инфу :-)

← →
sniknik © (2006-04-01 09:42) [3]

3) разобратся мог не до конца, и придумал глючную реализацию, со скрытым дефектом, которого сам не видиш, а на форуме покажут (ой покажут...;), тут хлебом не корми, дай над чужими ошибками поиздеваться ;о).

← →
rem2 (2006-04-01 10:06) [4]

WM_MOUSEMOVE: begin
sX:= Mouse.CursorPos.x;
sY:= Mouse.CursorPos.y;
if Timer1.Enabled then exit;
Timer1.Enabled:=true;
Caption:="Mouse YES";
AddModDelIcon(Handle,2,1,LoadIcon(0,IDI_APPLICATION),"Mouse YES")
end;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Mouse.CursorPos.x <> sX) or (Mouse.CursorPos.y <> sY) then begin
Caption:="Mouse NO";
Timer1.Enabled:=False;
AddModDelIcon(Handle,2,1,Application.Icon.Handle,"")
end;
end;
http://www.delphikingdom.info/asp/answer.asp?IDAnswer=+29588

← →
Delphi5.01 © (2006-04-01 10:59) [5]

rem2
Хорошее решение :-) Молодец

Я решил это так:
var CursorPos: TPoint; procedure TMainForm.WM_ICON(var Msg: TMessage); begin case Msg.LParam of ... ... WM_MOUSEMOVE : GetCursorPos(CursorPos) end; end; procedure TMainForm.MyProc; var Point: TPoint; begin GetCursorPos(Point); if (Point.X = CursorPos.X) and (Point.Y = CursorPos.Y) then ShowMessage("Cursor on Tray!!!"); end;

2sniknik

Ищите баги и издевайтесь:-)

Как узнать, что курсор мыши над иконкой в трее? Найти похожие ветки