Delphi 7 Взаимное прилипание\отлипание форм в одном проекте

[Dj_SheLL]

Как осуществить такое?
Если есть компоненты,посоветуйте пожалуйста названия,ссылки.
Облазил много чего,но не нашёл конкретных ответов,результатов.
Надеюсь на вашу помощь.

[Dj_SheLL]

Нет никаких предложений?
Я просто хочу добиться прилипания,как в Winamp плеере,когда одно его окошко "подносишь" к другому,то оно прилипает.

[ex.cluz]

Какой язык? На делфи могу выложить, где-то делал.

Сорри, не увидел заголовка. Пошел искать.

[ex.cluz]

Для начала пишем в секции private:

  private
    procedure WMWindowPosChanging1(var Msg: TWMWindowPosChanging);
    message WM_WINDOWPOSCHANGING;

Затем пишем:

procedure TForm_Main.WMWindowPosChanging1(var Msg: TWMWindowPosChanging);  //для "прилипания" к краям экрана/к нужной форме
var 
  WorkArea: TRect;
  StickAt : Word;
begin
  StickAt := 20;  //на каком расстоянии главная форма будет "прилипать" к краю экрана
  SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0);
  with WorkArea, Msg.WindowPos^ do
    begin  // Сдвигаем границы для сравнения с левой и верхней сторонами
      if (Form_Main.Visible=true) and (Glued1.Checked=true) then
        begin
          Form_LOG.Top:=Form_Main.Top+Form_Main.Height-2;  //задаем координаты "прилипшего окна"
          Form_LOG.Left:=Form_Main.Left;
        end;
      Right:=Right-cx;
      Bottom:=Bottom-cy;
      if abs(Left-x)<=StickAt then x:=Left;
      if abs(Right-x)<=StickAt then x:=Right;
      if abs(Top-y)<=StickAt then y:=Top;
      if abs(Bottom-y)<=StickAt then y:=Bottom;
    end;
  inherited;
end;

Form_LOG - это та форма, которая должна прилипать к главной (Form_Main)
Glued1 - пункт меню, на котором если поставить галочку, то формы будут "слипшиеся"

Будут вопросы - обращайтесь.

[Dj_SheLL]

Ооо!!!Огромнейшее спасибо!
Буду тестить...

[ex.cluz]

Рад, что это вам пригодилось, а то после того, как я это все сделал, заказчик сказал, что ему все-таки надо, чтобы лог был не в отдельном окне, как ему хотелось вначале, а в главном...пришлось убирать из проекта
Хорошо, что старый проект я отдельно сохранил. Сейчас бы и не вспомнил, как это все делается

[SpySpook]

Добрый день кто может мне подсказать как сделать прилипание второй формы с право к первой??? в этом примере она прилипает с низу а как сделать чтоб она прилипла с право
в заранее спасибо

[Ariomex]

День добрый! Пытаюсь сделать то же, что и автор темы, но что-то как-то не выходит... Есть два примера (приложил к посту). В первом формы липнут друг к другу, но чтобы её переместить из прилипшего состояния нужно отпускать ЛКМ и не учтено прилипание при растягивании. А во втором примере не нужно отпускать ЛКМ, но форма входит внутрь основной (что мне не надо). Но тут, если сделать стиль форм "bsSizeToolWin", то при растягивании формы будут прилипать, однако не без багов... Может кто помочь с этим разобраться ?

[Lesha]

модуль TMagnetic легко и просто предоставляет фукнционал для работы с липкими окошками



http://jqbook.narod.ru/files/TMagnetic1.1.rar << скачать
http://jqbook.narod.ru/delphi/magnetic.htm << документация

[Renvold]

Так. А кто знает какое свойство используется у формы, чтобы в момент прилипания к правому или левому краю экрана форма переворачивалась и все кнопки перестраивала вертикально, и на оборот, если прилипать к верхнему или нижнему то строить горизонтально. (По умолчанию форма разработана как горизонтальная)

Вообщем мне нужна добиться таго же эффекта что и у "Панель задач"