Вопросы с перемещением объектов по форме

[AbekIn3D]

У меня есть форма, в которой находятся 2 панели. Каждой из них я прописал следующее:

procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012; 
begin
releasecapture;
Menu.Perform(wm_syscommand, sc_dragmove, 0);
end;

Теперь их можно свободно перемещать их по форме нажав на них мышкой.

Первый вопрос:
Что и где нужно написать, чтобы при перемещении панелей они не выходили за границы формы и ктому же чтобы они (панели) сталкивались между собой.

Второй вопрос:
Что нужно сделать, чтобы объекты прилипали друг к другу и к краям самой формы.

Если кто не понял, что я имел в виду, то мне нужно сделать наподобие окон в фотошопе (инструменты, навигация, слои).
Пробовал с MDI, но там много заморочек.

Заранее спасибо за понимание и поддержку!

[mihali4]

Пример решения "в лоб", "по-крестьянски":

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012;
var p1,p2: TPanel;
begin
releasecapture;
if (Sender as TPanel).Name='Panel1' then
begin
p1:=Panel1;
p2:=Panel2;
end else
begin
p1:=Panel2;
p2:=Panel1;
end;
(Sender as TPanel).Perform(wm_syscommand, sc_dragmove, 0);
if p1.Top<5 then
p1.Top:=0;//прилипание к верхнему краю
if p1.Left<5 then
p1.Left:=0;//прилипание к левому краю
if p1.Top+p1.Height+1>p2.Top then
p1.Top:=p2.Top-p1.Height-1;//прилипание к верхнему краю другой панельки
//и так далее - остальные проверки
end;

Обратите внимание - процедура одна, но назначена обеим панелям.

[AbekIn3D]

mihali4
Спасибо большое!
Но как сделать прилипание к низу и справа? И еще чтобы при перемещении панели, она не перемещалась за границы, а не возвращалась на нулевую позицию?

[mihali4]

Да что ж тут сложного? Неужели самому неинтересно подумать?

if Height-p1.Top-p1.Height-1<5 then
p1.Top:=Height-p1.Height-1;//прилипание к нижнему краю
if Width-p1.Left-p1.Width-1<5 then
p1.Left:=Width-p1.Width-1;//прилипание к правому краю

Аналогично - по вопросу слипания панелей между собой. Думайте, думайте - это полезно...

[Drax]

Хороший пример, то что надо, а подскажите как заставить запоминать позиции панелек после перетаскивания?

[mihali4]

Кого заставлять будем ?
В ини-файле или в реестре...

[Drax]

заставлять будим саму программу))
наверно лучше в ини
Так как все-таки сохранять позиции панелек используя ini файл?

[mihali4]

Работа с ini файлами много раз обсуждалась на форуме - для этого существует поиск.
Можно проще - посмотреть примеры работы с ними в штатном хэлпе.