"Выезжающая" панель.

[blackstersl]

Привет всем. Как можно сделать "Выезжающую" панель, тоесть при наведении мышки на панель или близко возле неё, то панель выезжает из за экрана(снизу), а если отвести мышку, то она обратно залазит под экран. Подскажите что делать, или ссылочку какую-то подкиньте. Спасибо.

[Neeter]

Проверяйте текущую позицию мыши где-нибудь в таймере.
вот как можно ее узнать:

var
 p: TPoint;
begin
 GetCursorPos(p);
 edit1.text := IntToStr(p.x);
 edit2.text := IntToStr(p.y);
end;

или так:

begin
 edit1.text := IntToStr(Mouse.CursorPos.x);
 edit2.text := IntToStr(Mouse.CursorPos.y);
end;

И соотносите их с позицией панели или просто нижней части экрана.
Screen.Height и Screen.Width - размеры экрана

[Ntlegend]

в таймере проверяешь положение мыши (GetCursorPos) если мыша находится в определённом прямоугольнике (PtInRect) то меняешь Left и/или Top своей формы.. их можна менять тоже по таймеру, чтобы был эфект плавного появления/исчезновения

[blackstersl]

если честно я ничё не понял -( а вы можете это как то показать?

[Ntlegend]

если мыша находится по середине экрана (по вертикали) и достигает правого края (последние 5 пикселей) - то ставим выравнивание формы по правому краю экрана, когда мышь покидает форму - то прячем обратно:

procedure TForm1.Timer1Timer(Sender: TObject);
var p:TPoint;
begin
GetCursorPos(p);//узнаем позицыю курсора
if ((p.Y>200)and(p.Y<468))and(p.X>Screen.Width-5)
//проверяем местоположение курсора Y - вертикаль,Х -горизонталь
 then begin
  Form1.Align:=alRight;
//ставим выравнивание по провому краю экрана

  SetWindowPos(Self.Handle, HWND_TOPMOST, Left, Top, Width, Height,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
//делаем форму поверх всех окон
 end;
if (p.X<Form1.Left-5)
//если мыша находится левее формы
 then begin
  Form1.Align:=alNone;
//ставим свободное выравнивание
  Form1.Left:=Screen.Width+5;
//и убираем за правый край экрана
 end;
end;

[DeDoK]

неправильно, пиши так

procedure TForm1.Button1Click(Sender : TObject);
begin
AnimateWindow(form2.handle, 600, AW_HOR_POSITIVE or AW HOR_SLIDE or AW_HOR_ACTIVATE;
end;
procedure TForm1.Button2Click(Sender:TObject);
begin
AnimateWindow(form2.Hadle, 600, AW_HOR_NEGATIVE or AW_HIDE);
end;

и будет тебе счатье. это делается для форм. но я думаю можно попробовать и под панели.

[blackstersl]

Всем спасибо за ответ -)

[blackstersl]

Я вот немного переделал, но проблема в том что форма всё время опускаеьтся, как её остановить? Спасибо.

procedure TForm1.Timer6Timer(Sender: TObject);
var
 pos:tpoint;
begin
if form4.sRadioButton2.Checked = true then
begin
getcursorpos(pos);
if range <> 0 then
form1.Top := form1.top + range;

end;


procedure TForm1.Timer7Timer(Sender: TObject);
 var
    pos: TPoint;
  begin
  if form4.sRadioButton2.Checked = true then
  begin
    GetCursorPos (pos);
    if pos.y > Form5.height then range := 1;
end;
end;