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

[phphel]

procedure TForm1.CoolTrayIcon1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  MyMouse: TMouse;
  r : TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
form2.Left:=MyMouse.CursorPos.x-50;
form2.Top:=r.Bottom-form2.height;
form2.show;
end;

вот собственно и решение замутил) мб кому и пригодится)

насчет 2 вопроса, определять показана ли в данный момент форма так?

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

[phphel]

DIgorevich, ничего это не даст..я про ReleaseCapture;

[DIgorevich]

Ты спрашивал про получение высоты TaskBar'a:

 var
   tabd: TAppBarData;
begin
   FillChar(tabd, SizeOf(TAppBarData), 0);
   tabd.cbSize := SizeOf(TAppBarData);
   if SHAppBarMessage(ABM_GETTASKBARPOS, Tabd) = 0 then Exit;
   showmessage(inttostr(Tabd.rc.bottom-Tabd.rc.top));
end;

В uses добавь ShellApi

[phphel]

DIgorevich, уже не актуально, я спрашивал про так как проверять отображается ли вторая форма или нет)

[DIgorevich]

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

DIgorevich, уже не актуально, я спрашивал про так как проверять отображается ли вторая форма или нет)

Что вы говорите? а я тут такого не заметил:

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

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

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

[phphel]

to DIgorevich

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

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

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

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

Вот Вам цитата, если уж в такой тон перешла беседа..
И вообще, зачем мне решение, если я буквально пару минут назад уже написал свое?
Естественно, меня теперь волнует другой вопрос, который я так же задавал. (см. 1 страницу)

[DIgorevich]

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

Вот Вам цитата, если уж в такой тон перешла беседа..

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

[phphel]

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

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

Не обижаюсь Я вообще рад, что хоть кто-то откликнулся)

Проверять нужно для того, что я думаю что это поможет мне с этим

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

Если же нет, то готов выслушать Правильное решение проблемы.

[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;

procedure TForm2.TrackBar1Change(Sender: TObject);
begin
   form1.TrackBar1.Position:=TrackBar1.Position;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
   TrackBar1.Position:=form1.TrackBar1.Position;
end;

Таким образом ползунок двигается адекватно.

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

то форма2 не будет закрываться если отвести от неё курсор мыши.

так что нужно либо мой вариант дорабатывать, либо Ваш )