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

[phphel]

я думаю исключения надо делать тут

procedure TForm1.CoolTrayIcon1MouseMove

а не тут

procedure TForm2.FormMouseMove

[phphel]

Хотя нет..именно procedure TForm2.FormMouseMove мешает "нормальности" перемещения бегунка...но и без неё никак..

[DIgorevich]

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

я думаю исключения надо делать тут

procedure TForm1.CoolTrayIcon1MouseMove

а не тут

procedure TForm2.FormMouseMove

Тут:

procedure TForm1.CoolTrayIcon1MouseMove

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

[phphel]

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

[DIgorevich]

Значит вам надо изучать не OnMouseMove, а OnMouseLeave и т.д... http://delphiworld.narod.ru/base/add...ouseleave.html

[phphel]

Решение мелькает в голове, но уж больно громоздкое..

Все что нужно, это узнать находится ли мышка на форме, и если нет, то закрыть её..

[phphel]

DIgorevich, интересная статейка..поставил form2.Close; на MouseLeave...
теперь при наведении на Form2 она закрывается ((

[DIgorevich]

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

DIgorevich, интересная статейка..поставил form2.Close; на MouseLeave...
теперь при наведении на Form2 она закрывается ((

А полный код этого события можно увидеть?

[phphel]

procedure TForm2.CMMouseLeave(var msg: TMessage);
begin

inherited;
form2.close;

end;

[DIgorevich]

А полностью unit2?