___neznayka__Нужно перемещать мышью панель по горизонтели но не по вертикали.
Нашел такой пример:

void __fastcall TForm1::Panel1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
int SC_DRAGMOVE = 0xF012;
ReleaseCapture();
Panel1->Perform(WM_SYSCOMMAND,SC_DRAGMOVE, 0);
}

Перемещается по всем направлениям.
Как сделать сабж?

Думаю, нужно "двигать" панель не через Perform, а вручную, изменяя ее координаты. Попробуй поиграться с событиями OnMouseDown (установить флаг, что пользователь "зажал" мышью панель), OnMouseMove (если флаг установлен, меняем координаты панели в зависимости от координат курсора мышки), OnMouseUp (сбрасываем флаг). Координаты курсора над панелью переводим в глобальные координаты рабочего стола, после чего их переводим в координаты внутри формы, в которой находится панель, двигаем саму панель(ScreenToClient/ClientToScreen).

Слегка наворочено, но должно работать.