Плавающая панель

[dani92]

Здравствуйте, возникла проблема реализации панели, как например у Gom Player или WMP. Cуть такая: при наведении мыши в нижнюю часть экрана всплывала панель с кнопками проигрывания, паузы и т.д и при отсутствии на ней мыши исчезала. все это в полноэкранном режиме

[raxp]

обрабатывайте позицию курсора на форме, если осталось скажем 5 пикселей до низа формы, то panel.visible, если вышла мышь за границы панели вверх то скрывайте... можете поиграться с height панели

[Stilet]

Что-то я не понял в чем проблема...

[ОДИНОЧЕСТВО В СЕТИ]

поиграться с height панели

если панель плавающая а не сжимающаяся то лучше еще и с top играться

[dani92]

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

Что-то я не понял в чем проблема...

Во всех проигрывателях есть панели внизу и там кнопки/ В полноэкранном режиме пр наведении мыши вниз экрана она появляется, при ее отсутствии панель исчезает . Нужно сделать также в Delphi.

Сообщение от ОДИНОЧЕСТВО В СЕТИ

если панель плавающая а не сжимающаяся то лучше еще и с top играться

Свойство у панели:Align - alBottom

[russian-stalker]

Где-то так:

If (mouse.cursorpos.x>form.height-panel.height) and (panel.top<form.height-panel.height) then
panel.top:=panel.top-1;

[Lime]

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

Во всех проигрывателях есть панели внизу и там кнопки/ В полноэкранном режиме пр наведении мыши вниз экрана она появляется, при ее отсутствии панель исчезает
Нужно сделать также в Delphi.

var
tp:Tpoint;
begin
getcursorpos(tp);
if (tp.x > form1.height-panel1.height) then panel1.visible := true else panel1.visible:=false;
end;

Писал в браузере

[dani92]

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

var
tp:Tpoint;
begin
getcursorpos(tp);
if (tp.x > form1.height-panel1.height) then panel1.visible := true else panel1.visible:=false;
end;

я так понял это нужно писать в процедуре, но в какой??

[Lime]

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

я так понял это нужно писать в процедуре, но в какой??

по таймеру , либо в обработчике onMouseMove соновного компонента формы ( вероятно panel2 , если у вас видеоплеер )

Вот так правильней чем мой предыдущий ответ

procedure TForm1.Timer1Timer(Sender: TObject);
var
tp:Tpoint;
begin
getcursorpos(tp);
if ((tp.Y > form1.height-panel1.height+form1.Top) and   //Над панелью
    (tp.X > Form1.Left) and
    (tp.X < form1.Left+form1.Width) and
    (tp.y  < Form1.Top + form1.Height))
    then
    panel1.visible := true
    else panel1.visible:=false;
end;

[dani92]

Lime, работает все хорошо, только теперь надо в режиме full Screen