Сделать плавающую панель



Так называемая "плавающая панель" используется обычно для панелей инструментов.

Текст в модуле с основной формой:


procedure TForm1.FormShow(Sender: TObject);
begin
Form2.Show;
end;

Текст в модуле с "плавающей" панелью:


private
procedure CreateParams(var Params: TCreateParams); override;
...
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
begin
Style := Style or WS_OVERLAPPED;
WndParent := Form1.Handle;
end;
end;


Далее: Для создания панелей в двумя полосами слева, которые можно двигать »»