Показать форму при наведении

[phphel]

Всем привет.

ВОбщем решил добавить некую удобность в плеер, а именно,
при наведении мыши на трей иконку, появляется форма где можно будет менять громкость.
Вроде бы все сделал.
Но есть 2 пакости.

1.Как точно определить где показывать форму смены громкости?
Аналогично coolTrayIcon1.PopupAtCursor.

2.При появлении формы громкости, если навести мышку на регулятор и попробовать
его сместить, то это делается как бы с задержкой, а иногда вообще со второго раза.

3.Ну и собственно. если кто писал уже подобное)
подскажите как сделать что бы скролл бар оставлял за собой полосу)
как в аимпе.

Для наглядности прикладываю пример.

[phphel]

есть кто?)

[DIgorevich]

кто-то есть.... сейчас посмотрю...

1.Как точно определить где показывать форму смены громкости?
Аналогично coolTrayIcon1.PopupAtCursor.

В твоем коде не вижу смысла, лучше уж действительно использовать coolTrayIcon1.PopupAtCursor.

2.При появлении формы громкости, если навести мышку на регулятор и попробовать
его сместить, то это делается как бы с задержкой, а иногда вообще со второго раза.

Естественно, т.к. у тебя при смещении регулятора каждый раз вызывается событие CoolTrayIcon1MouseMove

[phphel]

Сообщение от DIgorevich

В твоем коде не вижу смысла, лучше уж действительно использовать coolTrayIcon1.PopupAtCursor.

Смысл есть, coolTrayIcon1.PopupAtCursor что мне даст?
Эта процедура выводит PopUp окно в трее, если бы она давала координаты мыши при
наведении на иконку, то другое дело.

Сообщение от DIgorevich

Естественно, т.к. у тебя при смещении регулятора каждый раз вызывается событие CoolTrayIcon1MouseMove

а вот тут верно, что-то я это не учел...
я так понимаю надо типа так..

if form2.onShow = true
then begin
	form2.show;
end;

[DIgorevich]

Сообщение от phphel

Смысл есть, coolTrayIcon1.PopupAtCursor что мне даст?
Эта процедура выводит PopUp окно в трее, если бы она давала координаты мыши при
наведении на иконку, то другое дело.

Ну а кто мешает получить позицию курсора?

 
var
  P: TPoint;
begin
  GetCursorPos(p);
  form2.Left:=p.x;
  form2.Top:=p.y;

[phphel]

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

 
var
  P: TPoint;
begin
  GetCursorPos(p);
  form2.Left:=p.x;
  form2.Top:=p.y;

Но проблема заключается в том, что мне надо получить координаты курсора именно над иконкой в трее, аналогично coolTrayIcon1.PopupAtCursor как я уже писал.

[DIgorevich]

Неверно. у себя ты определяешь координаты относительно своей формы\программы. А функция GetCursorPos получает координаты экранные.

[phphel]

DIgorevich. да нет, как раз наоборот, в моем коде по моему это четко видно.

[phphel]

В моем коде, я при наведении мыши на иконку, получаю X и Y мыши, и по этим координатам вывожу форму, но как видно из примера, это получается криво, надо узнать даже не left параметр формы, а top.

если бы я знал как получить высоту экрана минус высота таскбара, то думаю проблема бы решилась

[DIgorevich]

Сообщение от phphel

DIgorevich. да нет, как раз наоборот, в моем коде по моему это четко видно.

Точно, был не прав, извиняюсь!
но в этом вообще не вижу смысла...

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if GetCapture = 0 then
   SetCapture(Form2.Handle);
   if PtInRect(Rect(Form2.Left,Form2.Top,Form2.Left + Form2.Width,
   Form2.Top + Form2.Height),ClientToScreen(Point(x, y)))
   then else form2.Close;
end;

Лучше просто допиши:

procedure TForm2.FormDeactivate(Sender: TObject);
begin
   ReleaseCapture;
   form2.Close;
end;