Перетаскивание панелей

[garuna]

Добрый день!

Программа имеет такой вид:



Слева есть несколько панелей (TPanel). Подскажите, как сделать так, чтобы в запущенной программе последовательность этих панелей можно было менять перетаскивая их мышкой на нужное место?

[BARNEY]

оно?

procedure TFORM_GLAV.panels_datesMouseDown(Sender: TObject; 
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
  const 
  SC_DRAGMOVE = $F012; 
begin 
ReleaseCapture; 
panels_dates.ControlStyle:=panels_dates.ControlStyle + [ csOpaque ]; 
napominanie_dat.Perform(WM_SYSCOMMAND, SC_DRAGMOVE , 0); 
end;

[garuna]

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

оно?]

не совсем, этот код позволяет просто перетаскивать панель куда угодно, но другие панели при этом остаются на своем месте.
а нужно чтобы при перетаскивании например панели №2 на место панели №1, они менялись бы местами.

[NIKOLAYY2]

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

Добрый день!

Слева есть несколько панелей (TPanel). Подскажите, как сделать так, чтобы в запущенной программе последовательность этих панелей можно было менять перетаскивая их мышкой на нужное место?

Здорова! В делфи в коробке таких функций нету, но можно написать код вручную на событие отслеживание мыши и пристройки компонента в нужное место!

Писал я подобный код в собери картинку из частей- там где часть картинки уже почти подтащили на нужное место она "подклеивается" в свое место скажем так.
Но это слишком кропотливо!

Могу посоветовать компонент ControlBar накидать на него панелей и он по умолчанию будет делать что-то подобное!

[garuna]

NIKOLAYY2, вроде то что нужно. Спасибо! )