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

[phphel]

Такая же что и с момим кодом, тоесть все точно также, только код другой, + теперь еще надо каждый элемент на форме вставлять в процедуру...

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

[DIgorevich]

Вот попробуй и скажи где проблема??? (после скачивания переименуй .zip в .exe)
Project1.zip

[phphel]

DIgorevich, в твоем примере вообще форма не закрывается при отведении мыши)

[DIgorevich]

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

DIgorevich, в твоем примере вообще форма не закрывается при отведении мыши)

исправил, для этого переписал немного код:

function FindControlAtPos: TWinControl;
 var
   Pt: TPoint;
 begin
   GetCursorPos(Pt);
   Result := FindControl(WindowFromPoint(Pt));
 end;

procedure TForm2.CMMouseLeave(var msg: TMessage);
begin
 inherited;
  if FindControlAtPos<>trackbar1 then
  form2.close;
end;

Проверяй: Project1.zip

P.S.: у тебя если навести на иконку, а потом НЕ переходить на форму2, она не пропадет.

[phphel]

хм..сделал так у себя..проблема не решилась..
выложи проект полностью, с кодом..не пойму, почему у меня не работает..

[DIgorevich]

лови:
Громкость в TREE.rar
А какая проблема не решилась?

[phphel]

DIgorevich, ты мне видимо не тот выложил))

ибо там мой старый код) незакомментированый..
+ при отведении мышки форма исчезает гг

вот эта проблема

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

[DIgorevich]

Лови:
Громкость в TREE.rar
Точно, тогда старый скинул

[phphel]

DIgorevich, спасибо, понял почему у меня была ошибка..
недоглядел что остался код.

    {
   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;
            }

вот теперь возникает вопрос, все работает гуд, но как добиться того же, только не перечисляя все компоненты на form2?

[DIgorevich]

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

...вот теперь возникает вопрос, все работает гуд, но как добиться того же, только не перечисляя все компоненты на form2?

А что их там много???