How create a slider panel similar to Team View?

[flashcoder]

How create a slider panel (image attached) where can hide/show at any moment?

I already have half of solution:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
begin
  AnimateWindow(Panel1.Handle, 800, AW_SLIDE or AW_VER_NEGATIVE or AW_HIDE);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  AnimateWindow(Panel1.Handle, 800, AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE);
end;

Now i need insert something to right and below panel that when panel is hidden this thing is visible, to after show panel again through this (exactly like is in Team View) =>

http://prntscr.com/je15uq

[KodeZwerg]

Hi there, a quick search resulted to delphi-sliding-animated-panel with some different attempts to solve that problem.
I hope one of those solutions is okay since its pretty old.
https://torry.net/ has a few components that do the trick, ive used once "Folding Panel" from there, it fit my needs.

[flashcoder]

I already using the TPanel (native component), i not need of a new Panel.
All what i need in this moment is make my Button walk together with Panel when hide/show he (Panel).

How make this?

[Zacherl]

Simply place the button ON the panel?

[flashcoder]

sample:

http://prntscr.com/je35qp

http://prntscr.com/je36gt

[KodeZwerg]

Do you really visited my link? Under the "DynPanel" sourcecode, the shown image, isnt that what you want to have? A collapse/expand/etc button linked on a Panel.